Вывести номер каждой строки, в которой 2-ой элемент меньше среднего арифметического элементов строки

begin
  var arr: array [1..3,1..6] of integer;
  var str: array [1..6] of integer;
  var i,j,b:integer;
  var o,o1,o2:real;
  for i:=1 to 3 do
   for j:=1 to 6 do
    read(arr[i,j]);
    j:=1;
   repeat
   inc(j);
   for i:=1 to 3 do
    begin
      o:=arr[i,j]+ o;
      o2:=arr[2,j];
    end;
    o1:=o / 3;
    if o1>o2 then
     str[j]:=1;
    o:=0;
   until j=6;
   for j:=1 to 6 do
    if str[j]=1 then 
     begin
     println('Строка где второй элемент меньше среднего арифметического этой строки:', j);
     inc(b);
     end;
   println('Количество строк:',b);
 
end.

Var
    mas : array[1..100,1..100] of integer;
    i, j, count : integer;
    srar : real;
BEGIN
    randomize;
    count:=0;
    srar:=0;
    for i:=1 to 6 do begin
        for j:=1 to 3 do begin
            mas[i,j]:= random(99)+1;
            write(mas[i,j]:3);
        end;
    writeln;
    end;
    writeln;
    for i:=1 to 6 do begin
        for j:=1 to 3 do begin
            srar:=srar+mas[i,j];
            srar:=srar/3;
        end;
        if mas[i,2] < srar then begin
            writeln('Номер строки: ',i);
            count:=count+1;
        end;
    end;
    write('Количество строк: ',count);
END.