Pascal Error 124 Как можно исправить?

[roman_azn]

Пишу программу в паскале. Но ближе к концу написания стала появляться ошибка 124, программа слишком большая. Что-бы писать ее дальше, я просто написаные части заключал в фигурные скобки. Кто подскажет, есть какой-нибудь способ, как запустить программу целиком??
В интернете нашел следующее: "поместите части раздела операторов в одну или несколько процедур". Как это осуществить? Я не представляю как это сделать. Если нужно, вот ссылка на программу. http://narod.ru/disk/50124152001.6cc...PROBA.PAS.html

[BDA]

Как это осуществить? Я не представляю как это сделать.

Ваша программа сейчас:

uses crt;
begin
write('1');
write('2');
write('3');
end.

После вынесения кода в процедуры:

uses crt;

procedure print1;
begin
write('1');
end;
procedure print2;
begin
write('2');
end;
procedure print3;
begin
write('3');
end;

begin
print1;
print2;
print3;
end.

Конечно же это искусственный пример, поэтому наблюдается резкое увеличение количества кода. Но это очень полезный инструмент. Можно написать процедуру вывода так, чтобы данные для вывода передавались, как параметры.

uses crt;

procedure print(s:string);
begin
write(s);
end;

begin
print('1');
print('2');
print('3');
end.

Вынесите, как минимум, все циклы для вывода информации в отдельные процедуры.

[roman_azn]

То есть вот у меня есть:

Program ff
var ......
......
begin
for i:=1 to 1 do
 for j:=1 to 10 do
 begin
 write('| ',M_bal3[1,j]:4:0,'  ');
 write......
 .....
 end;
end.

А надо так?

Program ff
var ......
......
  procedure 1;
   begin
    for i:=1 to 1 do
    for j:=1 to 10 do
     begin
     write('| ',M_bal3[1,j]:4:0,'  ');
     write......
      .....
     end;
   end;
begin
procedure 1
end.

Правильно я понял?

спасибо за помощь, прогрпмма заработала))))
А зачем нужен оператор uses crt? с ним у меня не запустилось, убрал его - заработало))

[BDA]

Да, вы правильно поняли.
Пожалуйста)
http://pas1.ru/crt - описание модуля.