)96. дано предложение, в котором имеются одна буква «с» и одна буква «т». определить, какая из них встречается раньше (при просмотре слова слева направо). это паскаль, строки)

var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
  then writeln ('Буква «т» встречается раньше')
  else writeln('Буква «с» встречается  раньше');
end.