Разбитие на процедуры(СРОЧНО), Заплачу если мне помогут Опции

[warning777]

У меня проблема, есть готовая программа но ее надо разбить на процедуры,программа рабочая.
Моя ася 5515795 заплачу 50р
Сдавать послезавтра !

[sintanial]

Ну правельно. У тебя ведь там два цикла. Первый вот там де ошибка выполняется один раз если я не ошибаюсь, а второй уже выполняет столько раз сколько тебе нуна !

З.ы. Ща заканчиваю =)

Добавлено через 10 мин.
То что я выделил красным, у мя вопрос. ЗАЧЕМ ТЕБЕ ЭТО ? =)

 
{1}
Procedure File_Massiv(var f1:text; var a:array [1..100] of integer);
var n,i:integer;
begin
          reset(f1);
          n:=0;
          i:=1;
          while not EoF(f1) do          {чтение файла}
    begin
          n:=n+1;
          read(f1,a[i]);              {перегоняется в массив а(и) }
          i:=i+1;
    end;
close(f1);
end;
{/1}
{2}
procedure poisk_0(const a:array [1..100] of integer, var M;integer; const n:integer;);
var x1,I:integer;
begin
 for i:=1 to n do      {поиск последнего нулевого}
        begin
                if a[i]=0 then
                m:=i;
                x1:=1                {присваиваем ему букву м и х1=1}
        end;
end;
{/2}
{}
Procedure poisk_otr(const a:array [1..100] of integer; var p:integer; const n:integer);
var i,x1:integer;
begin
for i:=n downto 1 do    {поиск первого отрицательного}
            begin
                   if a[i]<0 then
                    p:=i;
                   x2:=1                  {присваиваем ему букву п и х2=1}
            end;
end;
{3}
procedure Vibor(const a:array [1..100] of integer; var b:array [1..100] of integer, const p,m:integer);
var k,i:integer;
begin
k:=0;                        {выбор элементов для сортировки}
     for i:=p+1 to m-1 do     
            begin
                   k:=k+1;
                   b[k]:=a[i];        {перегоняем в массив б(к) }
            end;
     n3:=m-p; 
end;      
{/3}
{4}
procedure Sort(var b:array [1..100] of integer; const k:integer);
var z,tmp,j:integer;
begin
z:=k;                       {сортировка по возрастанию}
    for k:=1 to k do           
    for j:=1 to z-1 do
    if B[j]>B[j+1] then
          begin
                  tmp:=B[j];
                  B[j]:=B[j+1];
                  B[j+1]:=tmp;
          end;
{/4}
{5}
procedure Vozvrat(Var a:array [1..100] of integer, const b:array [1..100] of integer; const m,p:ineteger;);
var i,k:integer;
begin;
k:=0 ;                {возврат отсортированнного в общий массив а(и) }
    for i:=p+1 to m do
             begin
                    k:=k+1;
                    a[i]:=b[k];
              end;
end;
{/5}
{}
procedure zap(var f2:text;  const a:array [1..100] of integer; const n:integer;);
var i:integer;
begin

Assign(f2,'out.txt');       {записываем все полученное в файл}
Rewrite(f2);
for i:=1 to n do
Write(f2,A[i]:4);
Close(f2);
end.
        {Закончилась}

Добавлено через 2 мин.
Основную программу думаю ты сам сделаешь. И еще , так как я писал тута, и уже час ночи( сам понимаешь), то ошибак там не мало =) . Де то end; пропустил в процедуре, де то не описал переменную, де то точку забыл. Подредактируй =)