Составить программу которая удаляет из строки заданный символ (,) и вставляет в строку другой заданный символ (.)

program zz1;

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

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

begin

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

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

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

if s[i] = ',' / / проверяем, если очередной символ равен ',', то удаляем его и на его место вставляем '.' с помощью специальных строковых процедур

then begin delete (s, i, 1); insert ('.', s, i); end;

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

end.