Про вывод в цикле Опции

[>hamka<]

В цикле выводится сообщение. Оно выводится столько раз, скока неправильно. А как сделать, чтобы только один раз оно выводилось?

[>hamka<]

как проделать вот это.
когда пользователь вводит 0, то ошибка, когда все нули тож ошибка, и когда первые нули, а потом число, то тоже у меня в программе это как ошибка. а я хочу, чтобы число впереди в нуликами воспринималось.

Код

readln(n);
for j:=1 to length (n) do
begin
k:=k+1;
end;
for j:=1 to length (n) do
begin
if (k > 1) and (n[j]='0') then begin
writeln('Некорректное значение. Нажмите <Enter> для продолжения');
readkey; goto main; end;
if k > 1 then begin
while n[1]='0' do delete (n,1,1); end;
end;
BOLSHOE_CHISLO (n,f);

я понимаю что что-то в цикле не прав. Где моя ошибка?