Требуется помощь в двух задачах, пишу сюда, ибо сам зашел в тупик. Желательно код с комментариями, дабы понять все:

2. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них запятой на точку.

Заранее спасибо

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.