Структура. Не работает программа

Type
  rec=record
   FIO:string[30];
   Vozr:integer;
   adress:string[30];
  end;
 mas=array[1..10] of rec;
 
Var
 f:text;
 e1,j,Min_age,k:integer;
 m:mas;
 
Procedure inp(var a:mas);
var i:integer;
begin
  readln(f,a[i].FIO);
  readln(f,a[i].Vozr);
  readln(f,a[i].adress);
end;
Procedure output(var a:mas);
var i:integer;
begin
  Inc(i);
  writeln(f,a[i].FIO);
  writeln(f,a[i].Vozr);
  writeln(f,a[i].adress);
end;
procedure find (var a:mas);
var i:integer;
begin
 Min_age:=100;
 for i:=j to e1 do
  With m[j] do
   if (Vozr<Min_age) and (Vozr>=20) and (Vozr<=30) then
    begin
     k:=j;
     Min_Age:=Vozr;
    end;
    end;
Begin
 assign(f,'file.txt');
 reset(f);
 close(f);
 inp(m,e1);
 output(m,e1);
 find(m,e1);
 
 Writeln('Результат:');
 Writeln(m[k].FIO);
 Writeln(m[k].Vozr);
 Writeln(m[k].adress);
 Readln
End.

uses crt;
type rec=record
         fio:string[30];
         vozr:integer;
         adress:string[30];
         end;
     mas=array[1..100] of rec;
procedure inp(var f:text;var a:mas;var n:integer);
begin
assign(f,'file.txt');
reset(f);
writeln('Список работников');
writeln('-----------------------------------------------------------------------');
writeln('|     Фамилия имя отчество     |Возраст|             Адрес            |');
writeln('-----------------------------------------------------------------------');
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  with a[n] do
   begin
    readln(f,fio);
    readln(f,vozr);
    readln(f,adress);
    writeln('|',fio:30,'|',vozr:5,'  |',adress:30,'|');
   end;
 end;
close(f);
writeln('----------------------------------------------------------------------');
end;
 
procedure find (a:mas;n:integer);
var min_age,i,k:integer;
begin
min_age:=30;
k:=0;
for i:=1 to n do
with a[i] do
if (vozr<min_age) and (vozr in [20..30]) then
 begin
  k:=i;
  min_age:=vozr;
 end;
if k=0 then write('Нет работника в возрасте 20-30 лет')
else
 begin
  writeln('Работник с минимальным возрастов в диапазоне [20..30]');
  with a[k] do write(fio,' ',vozr,' ',adress);
 end;
end;
var f:text;
    m:mas;
    n:integer;
begin
inp(f,m,n);
find(m,n);
end.