Дописать программу. Output.txt и Input.txt - Free Pascal

Формулировка задачи:

Здравствуйте! Требуется написать программу, берущую строку из файла, удаляющую лишние запятые и выводящую эту строку в другой файл. Заранее спасибо за помощь! Вот что получилось у меня:

program Main2;
var str:string; a:char; f:text;
 
function NewStr(str:string;a:char):string;
var s:string;
begin
  s:=str;
  while Pos(a + a,s) > 0 do delete(s, Pos(a + a,s), 1);
  NewStr:=s;
end;
 
begin
  Assign(f, 'input.txt');
  reset(f);
  read(f, str);
  readln(str);
  a:=chr(33);
  writeln(NewStr(str, a));
  readln;
end.

Решение задачи: «Дописать программу. Output.txt и Input.txt»

Листинг программы

program Main2;
var S:string;
  a:char;
  f1,f2:text;
 
function NewStr(S:string;a:char):string;
var T:string;
begin
  T:=S;
  while Pos(a + a,T) > 0 do delete(T, Pos(a + a,s), 1);
  NewStr:=T;
end;
 
begin
  assign(f1, 'E:\Input.txt');
  reset(f1);
  assign(f2, 'E:\Output.txt');
  rewrite(f2);
  a:=chr(33);
  readln(f1,s);
  writeln(f2,NewStr(s, a));
  close(f1);
  close(f2);
end.

Объяснение кода листинга программы

Список элементов:

Объявление переменных: S (строка), a (символ), f1, f2 (текстовые файлы).
Определение функции NewStr, которая принимает два аргумента: S (строка), a (символ) и возвращает строку.
Внутри функции NewStr создается вспомогательная строка T, которая инициализируется значением S.
В цикле while происходит удаление всех вхождений подстроки aa из строки T.
Функция NewStr возвращает значение переменной T.
Запись пути к файлу Input.txt в переменную f1.
Открытие файла Input.txt для чтения.
Запись пути к файлу Output.txt в переменную f2.
Открытие файла Output.txt для записи.
Установка значения символа a равным символу #.
Чтение строки из файла Input.txt в переменную s.
Запись результата работы функции NewStr в файл Output.txt.
Закрытие файла Input.txt.
Закрытие файла Output.txt.
Вывод сообщения об успешном выполнении программы.