Ввести файл целых чисел. Получить на его основе новый файл - Pascal ABC

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

Помогите пожалуйста Ввести файл целых чисел. Получить на его основе новый файл: если исходная компонента положительная - в новый файл пишется "1", если исходная компонента отрицательная - в новый файл пишется "-1", если исходная компонента равна 0 - в новый файл пишется " 0". Оба файла распечатать.

Решение задачи: «Ввести файл целых чисел. Получить на его основе новый файл»

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

var f,g:file of integer;
    i,a:integer;
begin
assign(f,'file1');
rewrite(f);
randomize;
for i:=1 to 20 do
 begin
  a:=-9+random(18);
  write(f,a);
 end;
reset(f);
assign(g,'file2');
rewrite(g);
writeln('Исходный файл');
while not eof(f) do
 begin
  read(f,a);
  write(a:3);
  if a>0 then a:=1
  else if a<0 then a:=-1
  else a:=0;
  write(g,a);
 end;
writeln;
close(f);
reset(g);
writeln('Новый файл');
while not eof(g) do
 begin
  read(g,a);
  write(a:3);
 end;
close(g)
end.

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

Объявлены две переменные файла: f и g.
Переменная i инициализируется значением 1, а переменная a - значением 0.
Файл f открывается для записи, его буфер перезаписывается.
Переменная a инициализируется случайным числом от -9 до 9 (включительно).
В файл f записывается значение переменной a.
Цикл выполняется 20 раз, на каждой итерации выполняются шаги 3-5.
Файл f закрывается, его буфер освобождается.
Файл g открывается для записи, его буфер перезаписывается.
Цикл считывает файл f построчно и записывает его в файл g, но в каждой строке числа заменяются на числа от -1 до 1 в зависимости от их абсолютного значения.
Файл g закрывается, его буфер освобождается.
Выводится сообщение Исходный файл.
Цикл считывает файл g построчно и выводит каждое число в 3-х позиционном формате.
Выводится сообщение Новый файл.
Цикл считывает файл g построчно и выводит каждое число в 3-х позиционном формате.
Файл g закрывается, его буфер освобождается.