В гостинице имеется 15 номеров, из них 5 одноместных и 10 двухместных. Составить программу, которая заполняет и (или) корректирует данные о жильцах и по фамилии определяет номер, где проживает жилец. Программа запрашивает фамилию жильца. Если жильца с такой фамилией нет, об этом выдается сообщение. Если жилец с такой фамилией в гостинице единственный, программа выдает фамилию жильца и номер проживания. Если в гостинице проживает два или более жильцов с такой фамилией, программа дополнительно запрашивает инициалы — Pascal(Паскаль)

program zapisi;
 
Label M1;
Type gost=record
          Nomer: integer;     
          Famil: string[15]; 
          IO   : string[5];   
          end;
var w:char;
      gg: file of gost;
{ia?aiaiiay aey ainooia e oaeeo}
       g : gost;
{ia?aiaiiay aey ainooia e caiene}
I,b,p,s,a:integer;
k,g1,g2,l: string;
F:string[20];
ff: boolean; {eiae?.oei}
WaitTime: word;
{-------oaaeeoa----------}
 
procedure Tabl;
begin
writeln('         Nienie ?eoaeae:');
writeln;
writeln('---------------------------------');
writeln('| Iiia? |   Oaieeey  | Eieoeaeu |');
writeln('---------------------------------');
end;
{--------nicaaiea oaeea caiene-----------}
Procedure Org;
Begin
writeln ('     Aaaaeoa aaiiua i ?eeuoao ainoeieou:');
writeln;
writeln ('  ?oiau caeii?eou aaia, aaaaeoa iiia? = 101');
writeln;
Begin
write('  Aaaaeoa eiy oaeea ');readln(F);
Assign (gg,'C:\Primer.txt');
Rewrite(gg);
While True do
begin
  With g do
 begin
  writeln;
  write('Aaaaeoa iiia?     '); readln(Nomer);
if nomer = 101 then
 begin
Close(gg); Exit
end;
  write('Aaaaeoa oaieee?   ');readln(Famil);
  write('Aaaaeoa eieoeaeu  ');readln(IO);
  writeln;
  write(gg,g);
end; end; end;
end; {org}
Procedure Rash; { i?ioaao?a ?anoe?aiey oaeea}
   Begin
writeln ('     Aaaaeoa aaiiua i ?eeuoao ainoeieou:');
writeln;
writeln ('  ?oiau caeii?eou aaia, aaaaeoa iiia? = 101');
writeln;
write('  Aaaaeoa eiy oaeea ');readln(F);
Assign (gg,'C:\Primer.txt');
Reset(gg); 
Seek(gg,FileSize(gg));
While True do
begin
 With g do
 begin
 writeln;
  write('Aaaaeoa iiia?     '); readln(Nomer);
if nomer = 101 then
begin
Close(gg); Exit
end;
begin
  write('Aaaaeoa oaieee?   ');readln(Famil);
  write('Aaaaeoa eieoeaeu  ');readln(IO);
  writeln;
  write(gg,g);
end;
end;  end;
 
 Procedure pr(a,b:integer;Nomer:integer;Famil:string;IO:string);
 begin
writeln(' ',Nomer:3,Famil:15,'    ',IO:5);
 end;
 
Procedure Vvod_f;
Begin
 
writeln; write('  Aaaaeoa eiy oaeea ');readln(F);
Assign (gg,'C:\Primer.txt');
Reset(gg); 
Tabl;
With g do
While not Eof(gg)do
begin
read(gg,g); 
pr(5,6,Nomer,Famil,Io);
end; {while}
close(gg); 
end;
end.