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

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.