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

[>hamka<]

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

[>hamka<]

И еще вопрос
Ситуация такая -> строка (переводимое в число) проверяется на max допустимое значение. В max может быть 10 символов. Изначально я хотела – все, что больше 10 чисел -> неправильно. Но пользователь может перед этими 10 цифрами и входящими в диапазон ввести нулики. Т.е. при переводе в число строка из 40 символов может преобразоваться в нормальное число. Как лучше сделать? Сейчас у меня так :

Код

procedure BOLSHOE_CHISLO ( n:string; var f: boolean);
var j,k,n:integer; l:longint; c:array [1..100] of longint;
begin
f:=true;
for j:=1 to length (n) do
begin
l:=ord(n[j])-48;
c[j]:=l;k:=k+1;
end;
if k=10 then begin
if (c[1]=3) or (c[1]>3) then f:=false;
и так до 10
end;
if k > 10 then begin
for n:=j downto 1 do
?????????
end;