Question

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

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

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

Answer 1

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.