Переделать готовую программу, чтобы она работала с файлом

{№ 28
Имя входного файла z2101.in
Имя выходного файла z2101.out
Дано N целых чисел. Определить сколько из них принимает значение больше заданного числа А.
Формат входных данных: ввод состоит из последовательности чисел (первое - n, второе - А), каждое записано с новой строки.
Формат выходных данных: вывод содержит одно число.
Пример входного файла:
2
1
0
3
Пример выходного файла:
1}
var
  n,i,a,j,t: integer;
  begin t:=0;
  writeln('ведите кол-во которое хотите ввести');
  readln(j);
  writeln('введите число для сравнения');
  readln(a);
  writeln('введите числа');
     for i:=1 to j do
     begin
        readln(n);
       if n>a then t:=t+1;
  end;
   writeln(t);
end.

var  a: array[1..10000] of integer;
  n,i,t,m: integer;
  f_in,f_out:text;
begin t:=0;
  assign(f_in,'z2101.in');
 rewrite(f_in);  writeln('введите размер массива');
 readln(m); writeln(f_in,m);
 assign(f_out,'z2101.out');
 rewrite(f_out);
 for i:=1 to m do begin
   readln(a[i]); writeln(f_in,a[i]);
   end;
    for i:=1 to m-1 do
         if a[t]>a[t+1] then
       write(f_out,t);
  close(f_in); close(f_out);
end.

var
  N,A,i,t,r: integer;
  f:text;
begin t:=0;
  assign(f,'z2101.in');
  reset(f);
  readln(f,N);
  readln(f,A);
  t:=0;
  for i:=1 to N do begin
    readln(f,r);
    if r>a then Inc(t);
  end;
  close(f);
  assign(f,'z2101.out');
  rewrite(f);
  writeln(f,t);
  close(f);
end.