Дана строка (прочитать из файла). Удалить из неё все знаки препинания (.; :,!?). Результат вывести на экран.

program zz1;

var s:string; / / задаем переменную строкового типа

i:integer; / / задаем переменные целого типа

f1:text;

begin

assign (f1,'input. txt');

reset (f1);

write (' введите строку ');

read (f1, s); / / вводим с клавиатуры строку

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

if (s[i] = ',') or (s[i] = '.') or (s[i] = '?') or (s[i] = '!') or (s[i] = ':') or (s[i] = '; ') / / проверяем, если символ строки знак препинания, то

then delete (s, i, 1); / / удаляем его из строки

writeln (' полученная строка = ', s); / / выводим ответ

close (f1);

end.