Описать массив записей жильцов дома, отображая информацию о каждом

program LR7;
uses crt;
type L1=record fam,y,u,r: string[50];
               d,k,n,v,c,p:integer;
end;
var L:L1;
    F:file of L1;
    w:string[50];
 begin
clrscr;
  assign(F,'c02-041-1.dan.doc');
  rewrite(F);
while L.fam <> '***' do
   begin
     writeln ('Введите фамилию жильца');
     readln(L.fam);
     writeln ('Введите имя жильца');
     readln(L.u);
     writeln ('Введите номер квартиры');
     readln(L.n);
     writeln ('Введите возраст жильца');
     readln(L.v);    
     writeln ('Введите место учебы студента');
     readln(L.y);
     writeln ('Введите место работы');
     readln(L.r);
     writeln ('Введите трудовой стаж');
     readln(L.c);
     writeln ('Введите год выхода на пенсию');
     readln(L.p); 
    end;
      close(f);

uses
  Crt;
 
type
  zhylec = record
    fam : string[20]; //фамилия
    im : string[10]; //имя
    kvart : Byte; //номер квартиры
    vozr : Byte; //возраст [18..22] - студент, [23..60] - рабочий
    rab_uch : string; //место учёбы / работы
    stazh : Byte; //стаж
    pens : Word; //год выхода на пенсию
  end;
  AR = array of zhylec; //массив жильцов
  
var
  mass : AR;
  i, n : Byte; //количество жильцов
 
procedure FindPens(mass : AR);
var
  i : Byte;
begin
  WriteLn('Список пенсионеров :');
  for i := 0 to Length(mass)-1 do
    {как вариант - if (mass[i].pens <> 0)}
    if (mass[i].vozr > 60) then
      Write(#9, mass[i].fam, ' ', mass[i].im);
  WriteLn;
end;
 
procedure FindStudent(mass : AR);
var
  i : Byte;
begin
  WriteLn('Список студентов :');
  for i := 0 to Length(mass)-1 do
    {как вариант критерия статуса студента можно предложить if ((mass[i].rab_uch <> '') and (mass[i].stazh = 0))}
    if (mass[i].vozr in [18..22]) then
      Write(#9, mass[i].fam, ' ', mass[i].im);
  WriteLn;
end;
 
procedure MaxZhylcy(mass : AR); //функция немного топорная, но лень лепить семиэтажные циклы.
var
  i, idMax, max : Byte;
  kvar : array[1..255] of Byte;
 
begin
  for i := 0 to Length(mass)-1 do
    Inc(kvar[mass[i].kvart]);
  max := kvar[1]; idMax := 1;
  for i := 2 to 255 do
    if (max < kvar[i]) then
    begin
      max := kvar[i];
      idMax := i;
    end;
  WriteLn('В ', idMax, ' квартире проживает наибольшее количество жильцов (', max, ').');
end;
 
procedure MinMaxVozr(mass : AR);
var
  i, max, maxID, min, minID : Byte;
begin
  max := mass[0].vozr; maxID := 0;
  min := mass[0].vozr; minID := 0;
  for i := 1 to length(mass)-1 do
  begin
    if (max < mass[i].vozr) then
    begin
      max := mass[i].vozr;
      maxID := i;
    end;
    if (min > mass[i].vozr) then
    begin
      min := mass[i].vozr;
      minID := i;
    end;
  end;
  WriteLn('самый молодой :', mass[minID].fam, ' ', mass[minID].im);
  WriteLn('самый пожилой :', mass[maxID].fam, ' ', mass[maxID].im);
end;
  
begin
  ClrScr;
  Write('Введите количество жильцов :'); ReadLn(n);
  SetLength(mass, n); Dec(n);
  for i := 0 to n do
  begin
    ClrScr;
    Write('Фамилия жильца :'); ReadLn(mass[i].fam);
    Write('Имя жильца :'); ReadLn(mass[i].im);
    Write('Номер квартиры :'); ReadLn(mass[i].kvart);
    Write('Возраст :'); ReadLn(mass[i].vozr);
    //для красоты if'ы можно на элегантный switch..case заменить
    if (mass[i].vozr in [23..60]) then
    begin
      Write('Место работы :'); ReadLn(mass[i].rab_uch);
      Write('Рабочий стаж :'); ReadLn(mass[i].stazh);
    end
    else
      if (mass[i].vozr in [18..22]) then
      begin
        Write('Место учёбы :'); ReadLn(mass[i].rab_uch);
      end
      else
        if (mass[i].vozr > 60) then
        begin
          Write('Год выхода на пенсию :'); ReadLn(mass[i].pens);
        end;
  end;
  MinMaxVozr(mass);
  MaxZhylcy(mass);
  FindStudent(mass);
  FindPens(mass);
end.