Дополнить программу процедурой определения призывников (юноши в возрасте от 18 до 27)

program lab_16_2;
uses crt;
type anketa=record
  FIO:string;
  adres:string;
  phone:string;
  years:string;
end;
var mas:array[1..10] of anketa;
i,k,j:integer;
s:char;
ff:string;
 
Procedure vvod;
begin
  i:=0;
  clrscr;
  repeat
    inc(i);
    with mas[i] do
    begin
      write('FIO=');readln(FIO);
      write('adres=');readln(adres);
      write('phone=');readln(phone);
      write('years=');readln(years);
    end;
    writeln('Continue? y/n');
    readln(s);
  until (s='n')or(s='N');
end;
 
Procedure sort;
var temp:anketa;
begin
  for var j:=2 to i do
    for var k:=i downto j do
    begin
      if mas[k-1].fio>mas[k].fio then
      begin
        temp:=mas[k-1];mas[k-1]:=mas[k];mas[k]:=temp;
      end;
    end;
end;
 
Procedure vivod;
begin
writeln('-----------FIO------D_R ------adres-----------phone-------');
 for var j:=1 to i do
 begin
 with mas[j] do
 begin
 write(' ',FIO:10);
 write(' ',adres:20);
 write(' ',phone:15);
 write(' ',years:10);
 end;
 writeln;
 end;
end;
 
procedure poshuk;
var f:Boolean;
begin
  writeln('Введіть прізвище для пошуку');
  readln(ff);
  for var j:=1 to i do
    with mas[j] do
    begin
      if(fio=ff) then
      begin
        f:=true;
        writeln('record found:',fio,'',adres,'',phone);
        break;
      end else f:=false;
    end;
end;
 
begin
  writeln('Результати програми за......');
  Vvod;
  writeln('Введено масив записів');
  Vivod;
  Sort;
  writeln('Масив впорядковано');
  Vivod;
  Poshuk;
  readln;
end.