Реализовать ввод данных, вывод данных, поиск по номеру квартиры и возрасту

uses crt;
type zapis=record
           fio:string;
           nom:integer;
           voz:integer;
           end;
var
a:array [1..10] of zapis;
n,i,k,np,j,t:integer;
w:char;
begin
clrscr;
writeln('kolichestvo zapisei:');
readln(n);
for i:=1 to n do
begin
writeln('zapis ',i);
write(' - fio: ');readln(a[i].fio);
write(' - nomer: ');readln(a[i].nom);
write(' - vozrast: ');readln(a[i].voz);
end;
clrscr;
writeln('spisok podpischikov:');
writeln('---------------------------------------------------------');
writeln('FIO':15, ' | ', 'Nomer kvartiry':15, ' | ', 'Vozrast':20, ' | ');
writeln('---------------------------------------------------------');
for i:=1 to n do
writeln(a[i].fio:15, ' | ', a[i].nom:15, ' | ', a[i].voz:20,' | ');
writeln('---------------------------------------------------------');
write('Nagmite Enter  ');
readln;
clrscr;
repeat
writeln('Iskat po: nomeru kvariry-1, vozrastu-2');
readln(np);
if np=1 then
begin
writeln('vvedite nomer kvartiry:');
readln(t);
end;
if np=2 then
begin
writeln('vvedite nomer telefona dlya poiska:');
readln(j);
end;
k:=0;
writeln('---------------------------------------------------------');
writeln('FIO':15, ' | ', 'Telefon':15, ' | ', 'Nazvanie gazeti':20, ' | ');
writeln('---------------------------------------------------------');
for i:=1 to n do
begin
if np=1 then
if a[i].nom=t then
begin
k:=1;
writeln(a[i].fio:15, ' | ', a[i].nom:15, ' | ', a[i].voz:20,' | ');
end;
if np=2 then
if a[i].voz=j then
begin
k:=1;
writeln(a[i].fio:15, ' | ', a[i].nom:15, ' | ', a[i].voz:20,' | ');
end;
end;
writeln('---------------------------------------------------------');
if k=0 then writeln('posk ne dal resultatov');
writeln('Nagmite Enter');
readln;
clrscr;
writeln('povtorit poisk? Y/y-yes, drugoe no');
readln(w);
until not (w in ['Y','y']);
end.