//Данная программа не работает...пытался ее исправить но увы..это как пример на процедуру на каждое действие
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 n:integer);
var i:integer;
begin
 i:=0;
 Repeat
  Inc(i);
  readln(f,a[i].FIO);
  readln(f,a[i].Vozr);
  readln(f,a[i].adress);
 Until EoF(f);
 n:=i;
end;
Procedure output(var a:mas;var n:integer);
var i:integer;
begin
 i:=0;
 Repeat
  Inc(i);
  writeln(f,a[i].FIO);
  writeln(f,a[i].Vozr);
  writeln(f,a[i].adress);
 Until EoF(f);
 n:=i;
end;
procedure find (var a:mas; var n:integer);
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.