Записи. Паскаль

[Nika_]

Дан массив записи, представляющий собой записную книжку, в которой указанны фамилии, индекс страницы, номер телефона. Если в записной книжке содержится знакомый с фамилией Иванов, то вывести информацию о нем, если нет, то вывести сообщение о том, что записи о таком человеке нет.
Вот попытки

Uses crt;
Const n=5;
Type
    row=record
        fio:string[25];
        tel:string[11];
        numb:byte;
        end;
    vect=array [1..n] of row;
Var
    a:vect;
    i:byte;
Begin
Clrscr;
for i:=1 to n do
with a[i] do
begin
numb:=i;
writeln('Введите фио и телефон №',i);
readln(fio);
readln(tel);
writeln(numb);
end;
for i:=1 to n do
with a[i] do
if fio='Иванов' then
begin
writeln(fio);
writeln(tel);
writeln(numb);
readln;
end
else
writeln('Такой записи нет');
End.

Суть в том, что сообщение о том что такой записи нет оно выводит столько раз сколько записей, а нужно все лишь один раз

[Stilet]

Опиши переменку b:Boolean;
Далее так:

b:=false;
for i:=1 to n do with a[i] do if fio='Иванов' then begin
 writeln(fio:30,tel:20,numb:5);
 b:=true;
end;

if not b then writeln('Такой записи нет');

readln;

[Nika_]

Спасибо, программа работает