Var
 S:char;
 F1,F2:text;
begin
 Assign(F1, 'input.txt');     \\Присваиваем  
 Assign(F2, 'output.txt');
 Reset(F1);      \\Открываем F1 для прочтения 
 Rewrite(F2);      \\Открываем F2 для записи
 while not eof(F1) do     \\Пока не конец файла F1
  begin
   Read(F1, S);     \\Вводим символ 
   if S=','        \\ Если запятая, то заменяем ее точкой 
    then S:='.';
   write(F2,S);    \\Пишем в F2
  end;
  close(F1);    \\Закрываем 
  close(F2);
end.