Массив: Напечатать номера отличников.

program zadanie10;
 
var
  a: array[1..15,1..7] of integer;
  i,j: integer;
begin
 
randomize;
  for i:=1 to 15 do
    begin
    for j:=1 to 7 do
      begin
      a[i,j]:=1 + random(5);
      write(a[i,j]:3);
      end;
      writeln;
     end;
  writeln;
  writeln ('Номера отличников:');
  for i:=1 to 15 do
    for j:=1 to 7 do
      if a[i,j] = 5 then
       writeln('Строка: ',i, ' Столбец: ',j);
 
 
readln;
end.

program zadanie10;
 
var
  a: array[1..15,1..7] of integer;  // Переменная в которой хранится массив с оценками.
  b: array[1..15] of integer;   // Переменная в которой хранится массив с количество оличных оценок.
  i,j: integer; //  Переменные для организации циклов.
  num5: integer; // Переменная для хранения значения количества отличных оценок.
  max: integer;  // Промежуточная переменная для определения отличника.
  indotl: integer; // Переменная для хранения индекса строки отличника.
begin
randomize;
  for i:=1 to 15 do   // Заполняем массив случайными числами от 1 до 5.
    begin
    for j:=1 to 7 do
      begin
      a[i,j]:=1 + random(5);
      write(a[i,j]:3);
      end;
      writeln;
     end;
  writeln;
 
  for i:=1 to 15 do    //Подсчитываем сколько отличных оценок имеется в строчке.
    begin
    num5:=0;
    for j:=1 to 7 do
      if a[i,j] = 5 then
        inc(num5);
    b[i]:= num5;
     end;
  max:=0;
  for i:=1 to 15 do    // Выбираем строчку, в которой находится максимальное
    if b[i]> max then  // количество положительных оценок.
      begin
        max:=b[i];
        indotl:=i;
      end;
 
 
  writeln ('Номер строки отличника: ',indotl);
readln;
end.