readLN(data);

WRITELN(‘введите год рождения’);

readLN(god);

end;

writeln(‘введите 0-общежития и 1-дом');

read(j);

n:=mesto(j);

IF n=ob then begin writeln(‘введите комн.');

readln(komn);

end;

else

begin

writeln(‘введите индекс и адрес');

readln(index, adres); end;

end;

writeln(' введите NAME для поиска

');

readln(s);

for i:=1 to m do

if s=zz[i].name then with zz[i] do

begin WRITELN(name);

WRITE(' Дата рождения -'); WITH denRogd DO

writeln(‘Адрес: ',data:5:2,'.',god,' ');

IF n=ob then writeln(‘комн-',komn)

else

writeln(‘Омск-',index,' ', adres);

WRITELN;

end;

END. 11