Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по номеру телефона и названию газеты

uses crt;
type zapis=record
           fio:string;
           phone:integer;
           name:string;
           end;
var
a:array [1..10] of zapis;
n,i,k,np,j:integer;
t:string;
w:char;
begin
clrscr;
writeln('kolichestvo podpischikov:');
readln(n);
for i:=1 to n do
begin
writeln('podpischik ',i);
write(' - fio: ');readln(a[i].fio);
write(' - telefon: ');readln(a[i].phone);
write(' - nazvanie gazeti: ');readln(a[i].name);
end;
clrscr;
writeln('spisok podpischikov:');
writeln('---------------------------------------------------------');
writeln('FIO':15, ' | ', 'Telefon':15, ' | ', 'Nazvanie gazeti':20, ' | ');
writeln('---------------------------------------------------------');
for i:=1 to n do
writeln(a[i].fio:15, ' | ', a[i].phone:15, ' | ', a[i].name:20,' | ');
writeln('---------------------------------------------------------');
write('use Enter  ');
readln;
clrscr;
repeat
writeln('Iskat po: naz. gazeti-1, telefonu-2');
readln(np);
if np=1 then
begin
writeln('vvedite naz. gazeti dlya poiska:');
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].name=t then
begin
k:=1;
writeln(a[i].fio:15, ' | ', a[i].phone:15, ' | ', a[i].name:20,' | ');
end;
if np=2 then
if a[i].phone=j then
begin
k:=1;
writeln(a[i].fio:15, ' | ', a[i].phone:15, ' | ', a[i].name:20,' | ');
end;
end;
writeln('---------------------------------------------------------');
if k=0 then writeln('posk ne dal resultatov');
writeln('use Enter');
readln;
clrscr;
writeln('povtorit poisk? Y/y-yes, drugoe no');
readln(w);
until not (w in ['Y','y']);
end.