Проверить, есть ли заданное число в типизированном файле - Pascal

program pr;
 
const
  n = 20;
 
var
  f: file of integer;
  g: text;
  i, c: integer;
  x, m: integer;
  s1, s2, s: string;
  a: array [1..n] of integer;
 
begin
  s1 := 'Такое число в файле есть';
  s2 := 'Такого числа в файле нет';
  randomize;
  assign(f, 'c:\nefile.txt');
  assign(g, 'c:\ree.txt');
  rewrite(f);
  rewrite(g);
  for i := 1 to n do
  begin
    m := random(21);
    write(m:3);
    write(f, m);
  end;
  close(f);
  writeln;
  c := 0;
  writeln('Введите число');
  readln(x);
  reset(f);
  while  not eof(f) do 
  begin
    read(f, m);
    a[i] := m;
    if a[i] = x then
      c := 1
  end;
  writeln;
  if c = 1 then 
    write(g, s1)
  else write(g, s2);
  close(f);
  close(g);
  reset(g);
  while  not eof(g) do 
  begin
    read(g, s);
    write(s);
  end;
  close(g);
end.