Структура. Подправить программу

[Topse]

Исходный код:

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.

Нужно поправить процедуры и сделать из глобальных переменных - локальные.
p.s из списка должен выводиться работник с мин.возрастом, который попадает в диапазон 20-30 лет.
file.txt

[min@y™]

А волшебное слово?

[Topse]

Сообщение от min@y™

А волшебное слово?

Пожалуйста :3

[min@y™]

Сообщение от Topse

Пожалуйста :3

отклонено.

[WorldMaster]

Сообщение от min@y™

А волшебное слово?

Исполнять!!!! )))

[min@y™]

Сообщение от WorldMaster

Исполнять!!!! )))

Пароль принят!

https://youtu.be/XuhaIOT4n4I

[WorldMaster]

Сообщение от min@y™

Пароль принят!

___________________________________ _________

[Black Fregat]

Сообщение от min@y™

Пароль принят!

Сразу вспомнилось
index.jpg