Записи

program kate;
uses crt;
type spisok=record
fam:string;
adres:string;
end;
var
i,n:integer;
a:array[1..100] of spisok;
s:string;
begin
clrscr;
write('Сколько человек будет в списке? '); read(n);
for i:=1 to n do
begin
write('Введите фамилию ',i,' человека: '); read(a[i].fam);
write('Введите адрес ',i,' человека: '); read(a[i].adres);
end;
clrscr;
writeln('Введите фамилию человека, адрес которого хотите узнать'); read(s);
for i:=1 to n do
if a[i].fam=s then
write('Адрес :',a[i].adres);
end.

program zapis;
uses crt;
 type
  anketa=record
   fam:string[15];
   adres: record
            yl:string[15];
            dom:integer;
            kv:integer;
          end;
         end;
 var
  tabl:array[1..100] of anketa;
  i,n,k,z:integer;
  key:boolean;
  s:string;
 begin
 clrscr;
  writeln('vvedite chislo tovarichei');
  readln(n);
   for i:=1 to n do
    with tabl[i] do
     begin
      writeln('vvedite danie o',i,'-om tovariche');
      writeln('Familia');
      readln(fam);
      with adres do
       begin
        writeln('ylitsa');
        readln(yl);
        writeln('Domicko');
        readln(dom);
        writeln('Kvartira');
        readln(kv);
       end;
     end;
 
  writeln('Vvedite familiy tovaricha');
  read(s);
   for i:=1 to n do
    if tabl[i].fam=s
     then writeln('Adres:',tabl[i].adres);
 
 
  end.