Процедура должна выводить сумму при вводе номера, но кроме суммы выводит еще что такого номера нет

[yohurt]

procedure OUTPUT;
var
nom:STRING;
x:INTEGER;
begin
RESET(f);
x:=0;
writeln('Введите расчетный счет плательщика');
readln(nom);
WHILE NOT EOF (f) DO
  begin
  READ(f,sh);
  IF nom=sh.plat THEN
      begin
      writeln('Сумма снятая с расчетного счета плательщика ',sh.summ);
      x:=1;
      END;
  IF x=0 THEN writeln('Такого расчетного счета нет');
  END;
END;

вобщем заметил такую фигню, когда пишешь первую запись, чтобы он к ней сумму вывел, он ее выводит нормально, без надписи "такого счета нет" . А если просишь чтобы вывел ко 2ой записи, он выводит 1 раз надпись "такого счета нет", и так далее, к 3-ей записи он выводит ее 2 раза, к 4ой записи выводит 3 раза и так по нарастающей... не знаю что делать, помогите, пожалуйста.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ERAGORN]

IF x=0 THEN writeln('Такого расчетного счета нет'); - поставьте после цикла while