Дано предложение. Удалить из него те буквы, которые являются окончанием хотя бы одного слова.

uses crt;
const rz=[' ',',','.','?','!'];{разделители}
var s:string;
   m:set of char;{множество}
   i:byte;
begin
clrscr;
repeat
writeln('Введите предложение, конец символы точка, ? !:');
readln(s);
if not(s[length(s)] in ['.','?','!']) then
writeln('Нет окончания предложения, повторите ввод.');
until s[length(s)] in ['.','?','!'];
m:=[];{пока пустое}
for i:=1 to length(s) do
if not(s[i] in rz)and(s[i+1] in rz) then{если не разделитель, а за ним разделитель}
m:=m+[s[i]];{добавляем в множество}
for i:=length(s) downto 1 do{идем с конца строки}
if s[i] in m then delete(s,i,1);{если символ в множестве, удаляем}
writeln('Удаление символов, являющихся окончанием слов:');
write(s);
readln
end.