Выбрать из файла положительные числа, вывести их на экран и записать в новый файл - Pascal

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

Написать программу, которая позволяет вводить действительные числа (количество предварительно задается либо завершается по указанию пользователя), заносить их в файл и выполнять их обработку: - Выбрать из файла положительные числа, вывести их на экран и записать в новый файл.

Решение задачи: «Выбрать из файла положительные числа, вывести их на экран и записать в новый файл»

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

var f: Text; t: Real;
begin
  Assign(input,'input.txt'); Assign(f,'output.txt');
  Reset(input); Rewrite(f);
  while not SeekEoF do begin
    Read(t); if t>0 then WriteLn(t); WriteLn(f,t); end;
  end;
  Close(f); Close(input);
end.

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

Объявляется переменная f типа Text и переменная t типа Real.
Происходит привязка файла input.txt к потоку ввода данных и файла output.txt к потоку вывода данных с помощью Assign(input,'input.txt'); Assign(f,'output.txt');
Подготавливаются файлы input.txt и output.txt для работы с ними: Reset(input); Rewrite(f);
Запускается цикл, проверяющий, есть ли еще данные в файле: while not SeekEoF do begin
Внутри цикла происходит чтение из файла значения в переменную t: Read(t);
Затем проверяется, больше ли значение t нуля, и если да, выводится на экран: if t>0 then WriteLn(t);
Также значение переменной t записывается в файл output.txt: WriteLn(f,t);
Цикл завершается, когда достигнут конец файла.
Файл output.txt закрывается: Close(f);
Закрывается файл input.txt: Close(input).