Delphi, цикл while

[BDA]

Во второй задаче:
SEEKEOLN(F); //Пропускаем до конца строки - эта функция ничего не пропускает, она только возвращает true, если в строке больше ничего нет кроме пробелов
FINALIZE(Arr); //Освободили память массива - как можно освобождать то, что не описано в Var и не использовано нигде

1-я:

PROGRAM exam;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
VAR
  c : Char
  F,F1:TEXTfile;
BEGIN
  ASSIGNFile(F,'input.PAS');
  reset(F); //Открываем исходный файл для чтения
 
  ASSIGNFile(F1,'output.PAS'); //И выходной для записи
  REWRITE(F); 
 
  WHILE NOT EOLN(F) DO //До конца строки EOLn
  BEGIN 
    read(F, c); //Читаем символ
    Write(F1,c); //Пишем символ в выходной файл
    IF с=',' THEN //Если символ запятая
    write(F1, '.');    //-выдадим ещё и точку
  END;
  //Закрыли оба файла...
  CloseFile(F); 
  CloseFile(F1); 
END.

[Reaper052]

Спасибо большое всем, разобрался наконец.