помогите заменить break в программе на что-то ещё

[tujh112344]

программа выводит факториал числа

const q=28; 
var k:array[1..q]of longint; m,l,i,j,n:integer; p,s:string; 
begin 
for i:=1 to q do
k[ i]:=0;   l:=1000000;   s:=''; 
write('n= ');   readln(n); 
k[1]:=1; 
for i:=1 to n do begin 
m:=0; 
for j:=1 to q do begin 
k[j]:=k[j]*i+m; 
m:=k[j] div l; 
k[j]:=k[j] mod l end; end; 
for j:=q downto 1 do begin 
str(k[j]:6,p); 
s:=s+p end; 
for j:=1 to length(s) do
if s[j]=' ' 
then s[j]:='0'; 
for j:=1 to length(s) do 
if s[j]>'0' then begin 
s:=copy(s,j,length(s)-j+1); break end; 
j:=1; 
while(s[j]='0')do begin 
s[j]:=' '; inc(j) end; 
writeln; writeln('n!=',s); readln; 
end.

______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Аватар]

замени на бряк, дословно, в проге ни чего не поменяется )

[digitalis]

Ну для начала научись форматировать текст исходника - отступы и пр. Коментарии, бывает, вставляют, чтоб было понятно, что он тут пытался сотворить.Трудно найти мазохиста, который такое читать возьмется.

[Аватар]

то ж не 1, а L строчное )

[digitalis]

Сообщение от Аватар

то ж не 1, а L строчное )

Я уже понял, изменил. Sorry, ТС. 1 и l так путаются в этом шрифте...

   l := 1

[WorldMaster]

ахаха ... какой же кошмар ... ничего не хочу сказать, но ... абсолютно нечитабельный код ... хоспади .. факториал... ааа .... столько кода ...
А в чем вопрос то?? чем вам брейк не нравится?
Обычно делают через рекурсию.

[digitalis]

Так ему "длинная" арифметика нужна...