Ошибка в коде.

[Dima9595]

Ребят, помогите пожалуйста!
Программа рабочая, но есть один минус, она не выводит количество учащихся в группах. Я пометил красным где именно это находится.
Программа определяет лучшую группу по среднему баллу.

Program qq;
Uses CRT;
Var a,h,r,i,k,j,q,count,F,maxi,u: integer;

     sr,sr1,sr2,z: real;
     mas: array[1..100]of real;
     mas2: array[1..100]of integer;
     //процедура считывает оценки студента и определяет сколько студентов завалило сессию//
procedure pr(k:integer;                  // кол-во студентов в группе        //
             var a,             //сумма баллов всех студентов в группе //
                 count:integer);// кол-во студентов, заваливших экзамены//
var i: byte;
   oc:integer; // оценка студента //
 begin
      a:=0;
      count:=0;
      mas2[k]:=k;
   For i:=1 to mas2[k] do
      begin
         write('студент ',i, ' = ');
         readln(oc);
           a:=a+oc;
         if oc < 3 then count:=count+1;
      end;
 end;
// функция считает средний балл по группе //
function fc2(a,              //сумма баллов всех студентов группы//
              b,elem:integer):real;     //кол-во студентов в группе//

 begin
  mas[elem]:=a/b;
  fc2:=mas[elem];
 end;
 Begin
textbackground(14);
Clrscr;
Gotoxy (15,6);
WriteLn ('Вашему вниманию предоставляется программа,');
Gotoxy (15,7);
WriteLn ('которая определяет лучшую группу по среднему баллу. ');
Gotoxy (39,17);
WriteLn ('Программу составил студент');
Gotoxy (39,18);
WriteLn ('МИИТа группы ЭБИ-111');
Gotoxy (39,20);
WriteLn ('Чернов Дмитрий');
Gotoxy (39,21);
WriteLn ('Москва,2014');
Gotoxy (20,23);
WriteLn ('Нажмите любую клавишу для продолжения');
readln;
Begin //главная//
Clrscr;
write('сколько групп в потоке? ');
readln(r);
for i:=1 to r do
begin
write('сколько студентов учится в ',i,' группе? ');
readln(k);
end;
 write('Сколько экзаменов сдают студенты в сессию? ');
  readln(a);
Clrscr;
  Begin
    for i:=1 to r do
      for j:=1 to a do
    begin
     writeln('введите оценки ',i,' группы за ',j,' экзамен');

             pr(k,q,count);

             writeln('не сдали ',count);
             
    writeln('   Cреднее арифметическое = ', fc2(q,k,i):4:1);
     end;
     end;
     u:=r*a;
     Repeat
           F:=0;
      for i:=1 to u-1 do
      begin
        if mas[i]<mas[i+1] then
           begin
           Z:=mas[i];
           mas[i]:=mas[i+1];
           mas[i+1]:=Z;
           F:=1;
        end;
      end;
      Until (F=0);
   writeln('нажмите любую кнопку');
    readln;
    Clrscr;
    gotoxy(26,1);
    Writeln('СВОДКА УСПЕВАЕМОСТИ ГРУПП');
    for j:=1 to 54 do Write('-');
    gotoxy(2,3);
    writeln('|Место | Группа | Число | Средний | Число студнетов |');
    gotoxy(18,4);
    writeln('|Студен.|  балл   |"завалив. сессию"|');
    gotoxy(1,5);
    for j:=1 to 54 do Write('-');
    gotoxy(2,6);
    for i:=1 to r do
    begin
    gotoxy(2,5+i);
      writeln(' ',i,')');
      end;
    for i:=1 to u do
    begin
    gotoxy(29,5+i);
     writeln('',mas[i]:4:1);
     end;
     for i:=1 to r do
    begin
    gotoxy(13,5+i);
    writeln(i);
    end;
    for i:=1 to r do
    begin
    gotoxy(22,5+i);
    writeln(mas2[k]);
    end;
  end;
  end.

[Son Of Pain]

Вот у тебя цикл

for i:=1 to r do
begin
write('сколько студентов учится в ',i,' группе? ');
readln(k);
end;

Ничего в нем не смущает? )

[Dima9595]

Смущает, что в цикле переменная i.

[Son Of Pain]

А то, что все значения читаются в одну переменную, и в итоге сохраняется только последнее?

[Dima9595]

Как мне это исправить?

Точнее, как мне сделать правильно)

[Stilet]

Заменить на readln(mas2[i]); в указанном цикле.

[Dima9595]

я заменил здесь

for i:=1 to r do
begin
write('сколько студентов учится в ',i,' группе? ');
readln(mas2[i]);
end;

заменил здесь

procedure pr(k,i:integer;                  // кол-во студентов в группе        //
             var a,             //сумма баллов всех студентов в группе //
                 count:integer);// кол-во студентов, заваливших экзамены//
var
   oc:integer; // оценка студента //
 begin
      a:=0;
      count:=0;
   For i:=1 to mas2[i] do
      begin
         write('студент ',i, ' = ');
         readln(oc);
           a:=a+oc;
         if oc < 3 then count:=count+1;
      end;
 end;

и добавил переменную на выводе процедуры и на выводе в таблицу тоже заменил на mas2[i], но у меня все равно не работает, пишет что выход из диапазона 0.

[ZX Spectrum-128]

Вы прогоните отладчиком по массиву mas2 и сразу увидите, что не так.

[Dima9595]

Все, спасибо за помощь, я сделал!