Найти количество нечётных отрицательных элементов файла, созданного в задании 1, и полученный результат записать в новый файл — Pascal(Паскаль)

uses crt;
var
 n,i,k:integer;
 f,t:text;
begin
clrscr;
randomize;
k:=0;
 assign(f,'1.txt');
 rewrite(f);
 write('n = ');
 readln(n);
 for i:= 1 to n do
  writeln(f,random(100)-80);
 close(f);
  assign(f,'1.txt');
  reset(f);
 while not eof(f) do
 begin
   readln(f,i);
   write(i,' ');
   if (odd(i)=true) and  (i<0) then
   inc(k);
 end;
 writeln('k = ',k);
assign(t,'2.txt');
rewrite(t);
write(t,k);
close(t);
readln;
end.