Массив записей. Предусмотреть возможность выдачи сведений о жильце по введенному адресу. Программа неправильно работаем

program zadanie5; 
type anketa=record 
fio:string[100]; 
pol:string[20]; 
gorod:string[20]; 
ulica:string[20]; 
dom,kvartira:integer; 
end; 
var 
z:array[1..100]of anketa; 
num,n,i,k:integer; 
g:string[20]; 
u:string[20]; 
d,kv:integer; 
begin 
repeat 
write('число жильцов'); 
readln(n); 
until n in[1..100]; 
writeln('анкетные данные'); 
for i:=1 to n do 
begin 
write('#');readln(num); 
write('FIO');readln(z.fio); 
write('Pol');readln(z.pol); 
write('Gorod prozgivania');readln(z.gorod); 
write('Ulica');readln(z.ulica); 
write('# doma');readln(z.dom); 
write('# kvartiri');readln(z.kvartira); 
end; 
writeln('| FIO | Pol | Gorod | Ulica | Dom | Kvartira |'); 
for i:=1 to n do 
begin 
write('|',z.fio:12); 
write('|',z.pol:15); 
write('|',z.gorod:13); 
write('|',z.dom:4); 
write('|',z.ulica); 
write('|',z.kvartira); 
write('|'); 
writeln; 
end; 
writeln('введите адрес нужного жильца'); 
begin 
write('город проживания');readln(g); 
write('улица');readln(u); 
write('# дома');readln(d); 
write('# квартиры');readln(kv); 
while(g=z.gorod)and(u=z.ulica)and(d=z.dom)and(kv=z.kvartira)do
writeln(z.fio:12,z.pol); 
end; 
end.

program zadanie5;
 
type
  anketa = record 
    fio: string[100]; 
    pol: string[20]; 
    gorod: string[20]; 
    ulica: string[20]; 
    dom, kvartira: integer; 
  end;
 
var
  fio: array[1..100]of anketa; 
  num, n, i, k: integer; 
  g: string[20]; 
  u: string[20]; 
  d, kv: integer;
  z:anketa;
begin
  repeat 
    write('число жильцов'); 
    readln(n); 
  until n in [1..100]; 
  writeln('анкетные данные'); 
  for i := 1 to n do 
  begin
    write('#');readln(num); 
    write('FIO');readln(z.fio); 
    write('Pol');readln(z.pol); 
    write('Gorod prozgivania');readln(z.gorod); 
    write('Ulica');readln(z.ulica); 
    write('# doma');readln(z.dom); 
    write('# kvartiri');readln(z.kvartira); 
  end; 
  writeln('| FIO | Pol | Gorod | Ulica | Dom | Kvartira |'); 
  for i := 1 to n do 
  begin
    write('|', z.fio:12); 
    write('|', z.pol:15); 
    write('|', z.gorod:13); 
    write('|', z.dom:4); 
    write('|', z.ulica); 
    write('|', z.kvartira); 
    write('|'); 
    writeln; 
  end; 
  writeln('введите адрес нужного жильца'); 
  begin
    write('город проживания');readln(g); 
    write('улица');readln(u); 
    write('# дома');readln(d); 
    write('# квартиры');readln(kv); 
    while(g = z.gorod) and (u = z.ulica) and (d = z.dom) and (kv = z.kvartira) do
      writeln(z.fio:12, z.pol); 
  end; 
end.