Процедура(связь между переменными)

[BaronVik]

Здравствуйте уважаемые программисты. Сново прошу помощи у вас с моей неработающей программой.

Нам задали переделать программу дополнив её функциями. Я взял за основу эту программу http://programmersforum.ru/showthread.php?t=139061 .
Вот моя работа

Program Lab_2_2;
Var F1,F2:text;
    S:String;
    i,z,bykv,vhod:byte;
    c:char;
    M:array [1..100] of byte;


Procedure Open (s_proc:string);
Begin
   Write('Im9 file: ');
   Readln(s_proc);
   assign(F1,s_proc);
   {$I-}; Reset(F1); {$I+};{Prosto otkrit'}
   if IOResult = 0 then
   begin
      writeln ('File otcrit');
      readln;
   end
   else
   begin
      writeln('File neotkrit,programma okan4ivaet svoy raboty');
      readln;
      halt;
   end;
end;


procedure bykva (c_proc:char;
                 bykv_proc,vhod_proc,z_proc:byte;
                 M_proc:array of byte);
Begin
   read(F1,c_proc);
   Begin
     if (c_proc='A') or (c_proc='a') then
        inc(bykv_proc);
        inc(vhod_proc);
   end ;
   if Eoln(F1) then
   begin
      M_proc[z_proc]:=bykv_proc;
      bykv_proc:=0;
      inc(z_proc);
   end;
end;


Begin {Telo osnovnoy programmi}
   Open(s);
   begin
      while not EOF(F1) do
      bykva(c,bykv,vhod,z,M)
   end;
   Close(F1);
   assign(F2,'G:\F2.txt');
   Rewrite(F2);  {Na zapis}
   Writeln(F2,'Kol-vo vxozdenii-',vhod);
   for i:=1 to 100 do
   begin
      if M[i] <> 0 then
      WriteLn(F2,'Sroka',i,'-',M[i]);
   end;
   Close(F2);
   reset(F2);
   while not EOF(F2) do
   begin
      read(F2,c);
      write(c)
   end;
   Close(F2);
   readln;
end.

В итоге он проскакивает место

  begin
      if M[i] <> 0 then
      WriteLn(F2,'Sroka',i,'-',M[i]);
   end;

Я не понимаю почему он проскакивает и вообще почему после использования процедуры в массив M не записалось не единого значения.

ПРОСЬБА!!! Не пишите код программы,натолкните на мысль что тут нужно сделать и вообще правильным ли путём я пошёл. Хочу сам подумать,иначе ничему не научусь.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Hacker19_90]

Добавте var

procedure bykva (c_proc:char; 
                 bykv_proc,vhod_proc,z_proc:byte; 
                 VAR M_proc:array of byte);

[BaronVik]

Всё равно,не решило ни одной проблемы

[Serge_Bliznykov]

Я не понимаю почему он проскакивает и вообще почему после использования процедуры в массив M не записалось не единого значения.

Да потому что криво написано.
Вы бы лучше расказали, для чего у Вас процедура bykva
(она 100% неправильная), поэтому поясните что она должна (по вашему мнению) делать...

[BaronVik]

Всё,сам додумал в чём проблема и довёл до ума. Спасибо всем за оказанную помощь,можно закрыть тему