Заполнить файл f натуральныи числами,полученными с помощю генератора случайных чисел

uses crt;
var f:text; {переменная для текстового файла}
    a:1..maxint;{натуральные числа}
    k,i:byte;{счетчики }
    c:char;{символ для окончания ввода}
begin
clrscr;
randomize;
assign(f,'chisla.txt');{создаем файл}
rewrite(f);{открываем для записи}
writeln('Vvedite chisla, okonchanie vvoda Esc');
repeat
write('a=');
a:=random(100)+1;{случайное натуральное число от 1 до 100}
readln(a);
write(f,a,' ');{записываем в файл через пробел}
c:=readkey;{ждем нажатия клавиши}
until c=#27;{если нажата Esc, заканчиваем, другая, продолжаем}
reset(f);{открываем файл для чтения}
k:=0;
while not(eof(f)) do{пока не конец файла}
  begin
    read(f,a);{читаем числа}
    if (a mod 2=0)and((a div 2)mod 2<>0){если число четное, а его половинка нечетная}
    then k:=k+1;{считаем}
  end;
write('Kolichestvo udvoennyh necetnyh=',k);
close(f);{закрываем файл}
readln
end.