Найти количество квадратов нечётных чисел среди компонентов типизированного файла - Pascal

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

Здравствуйте! Дан файл f , компоненты которого являются целыми числами Найти: Количество квадратов нечётных чисел среди компонентов.

Решение задачи: «Найти количество квадратов нечётных чисел среди компонентов типизированного файла»

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

uses crt;
var f:file of integer;
    a,k:integer;
    t:real;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
clrscr;
k:=0;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if (a>0) then
   begin
    t:=sqrt(a);
    if(sqr(round(t))=a)and(trunc(t)mod 2<>0) then k:=k+1;
   end;
 end;
close(f);
writeln;
write('Количество квадратов нечетных чисел=',k);
readln
end.

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

Создаётся объект файла с именем f для работы с целыми числами.
Пользователю предлагается ввести целые числа, которые будут записаны в файл. Ввод завершается, когда пользователь вводит 0.
Содержимое файла выводится на экран.
Переменная k инициализируется нулем. Она будет использоваться для подсчёта квадратов нечётных чисел.
Запускается цикл чтения из файла.
В каждой итерации цикла число из файла записывается на экран.
Если число больше нуля, то вычисляется его квадратный корень.
Проверяется, является ли квадрат корня нечётным числом. Для этого проверяется, делится ли квадрат на 2 без остатка и является ли остаток от деления нечётным.
Если условие выполняется, то к переменной k прибавляется единица.
Цикл завершается, когда достигается конец файла.
Выводится сообщение с количеством квадратов нечётных чисел.
Программа завершается, пока пользователь не нажмет клавишу readln.