Найдите номер строки матрицы, в которой больше всего единичных элементов

Uses CRT;
Var i,j,imax,kol,n,m,st:byte;
    a:array[1..50,1..50] of integer;
begin
randomize;
repeat
 write('Введите количество строк: ');
 readln(n);
until n in [1..50];
repeat
 write('Введите количество столбцов: ');
 readln(m);
until m in [1..50];
imax:=0;
st:=0;
for i:=1 to n do
 begin
  kol:=0;
  for j:=1 to m do
   begin
    a[i,j]:=random(2);
    if a[i,j]=1 then inc(kol);
    write(a[i,j]:3);
   end;
  writeln;
  if kol>imax then
  begin
   imax:=kol;
   st:=i;
  end;
 end;
 if st<>0 then writeln('Строка с максимальным количеством единиц:=',st,' количество единиц в ней:=',imax)
 else write('Нет такой строки');
 readln
end.

Uses CRT;
Var i,j,imax,kol,k,l,st:byte;
    a:array[1..50,1..50] of integer;
 
procedure kol_vo(n,m:byte);
begin
imax:=0;
st:=0;
for i:=1 to n do
 begin
  kol:=0;
  for j:=1 to m do
   begin
    a[i,j]:=random(2);
    if a[i,j]=1 then inc(kol);
    write(a[i,j]:3);
   end;
  writeln;
  if kol>imax then
  begin
   imax:=kol;
   st:=i;
  end;
 end;
 if st<>0 then writeln('Ñòðîêà ñ ìàêñèìàëüíûì êîëè÷åñòâîì åäèíèö:=',st,' êîëè÷åñòâî åäèíèö â íåé:=',imax)
 else write('Íåò òàêîé ñòðîêè');
end;
 
begin
randomize;
repeat
 write('Ââåäèòå êîëè÷åñòâî ñòðîê: ');
 readln(k);
until k in [1..50];
repeat
 write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ: ');
 readln(l);
until l in [1..50];
kol_vo(k,l);
readln
end.

Uses CRT;
Var i:byte;
    st:string[11];
    t:boolean;
    
procedure DecToOct(s:string);
Var rez:string;
    c:integer;
begin
 rez:='';
 c:=StrToInt(s);
 while c<>0 do
  begin
   rez:=chr((c mod 8)+48)+rez;
   c:=c div 8
  end;
  writeln('×èñëî â âîñüìåðè÷íîé ñèñòåìå ñ÷èñëåíèÿ: ',rez)
end;
 
begin
 repeat
  write('Ââåäèòå ÷èñëî â äåñÿòè÷íîé ñèñòåìå ñ÷èñëåíèÿ: ');
  readln(st);
  t:=true;
  for i:=1 to length(st) do
   if not (st[i] in ['0'..'9']) then
   begin
    t:=false;
    break
   end;
 until t;
 DecToOct(st);
 readln
end.