Write a program that removes the specified character (,) from the string and inserts another specified

Write a program that removes the specified character (,) from the string and inserts another specified character (.) Into the string.

program zz1;
var s: string; // set a variable of string type
i: integer; // set a variable of integer type
begin
write (‘enter string’);
read (s); // enter a string from the keyboard
for i: = 1 to length (s) do // organize a loop from the first to the last letter of the entered string
if s [i] = ‘,’ // check if the next character is ‘,’, then delete it and insert ‘.’ using special string routines
then begin delete (s, i, 1); insert (‘.’, s, i); end;
write (‘received string =’, s); // display the answer
end.