Составить программу, которая заполняет данные о жильцах и по фамилии определяет номер, где проживает жилец - PascalABC.NET - Ответ 4746265

uses
  crt;
 
const
  n = 4;
 
type
  
  guest = record 
    fam: string;
    inic: string[2];
    room: integer;
    mest: 1..2;
  end;
 
var
  gu: array[1..n] of guest;
 
function supersearch(name: string): boolean;
var
  ini: string[2];
begin
  result := false;
  writeln(#13#10'Жильцов с такой фамилией несколько.');
  write('Введите инициалы: ');
  read(ini);
  for var i := 1 to n do
    if (name = gu[i].fam) and (ini = gu[i].inic) then
      result := true;
end;
 
procedure search;
var
  found := false;
  num := 0;
  name: string;
begin
  Writeln(#13#10'Поиск жильца.');
  write('Введите фамилию: ');
  readln(name);
  for var i := 1 to n do 
    if (name = gu[i].fam) then 
      if found then begin found := supersearch(name); if found then num := i; break; end
      else begin found := true; num := i; end;
  writeln;
  if not found then writeln('Жилец не найден.')
  else with gu[num] do
      writelnformat('Жилец {0} {1} проживает в {2}-местном номере № {3}', fam, inic, mest, room);
end;
 
begin
  for var i := 1 to n do 
    with gu[i] do
    begin
      writeln('Ведите данные  ', i, '   жильца');
      write('Фамилия и инициалы (фамилия, пробел, инициалы без точек): ');
      var c: char;
      repeat
        read(c);
        if c <> ' ' then fam += c;
      until c = ' ';
      read(inic);
      write('Номер комнаты: ');
      readln(room);
      write('Мест: ');
      readln(mest);
    end;
  search; 
end.