Переменной L присвоить значение True, если в массиве нечетное число элементов

var
  f: file of integer;
  n, k: integer;
  l: boolean;
begin
  Randomize; n:=Random(100);
  { Создать файл, содержащий массив целых чисел. }
  Assign(f,'test.int'); Rewrite(f);
  for n:=n downto 1 do Write(f,-1000+Random(2001));
  Close(f);
  { Считаем количество элементов в файле }
  Reset(f); n:=0;
  while not eof(f) do begin
    Read(f,k); inc(n);
  end;
  Close(f);
  { Значение L }
  l:=odd(n);
  WriteLn(l);
end.

var
  f: file of integer;
  n: integer;
  l: boolean;
begin
  Randomize; n:=Random(100);
  { Создать файл, содержащий массив целых чисел. }
  Assign(f,'test.int'); Rewrite(f);
  for n:=n downto 1 do Write(f,-1000+Random(2001));
  { Значение L }
  l:=odd(FileSize(f));
  WriteLn('L is ',l);
  Close(f);
end.

var 
l:boolean;
f:file of char;
n:integer;
c: char;
begin 
assign(f,'C:\Users\Семен\Desktop\ОП\text.txt');
  Reset(f); 
  n:=0;
  while not eof(f) do 
  begin
    Read(f,c); 
    n:=n+1;
  end;
  Close(f);
  l:=odd(n);
  WriteLn(l);
  WriteLn(n);
end.

...
  f: text;
  c: integer;
...
  while not SeekEOF(f) do
...