Определить: номер столбца в котором находится самая длинная серия одинаковых элементов

const n=9;m=7;
type matr=array[1..n,1..m] of integer;
var a:matr;
    i,j,rez,rezj:integer;
    r:set of 1..m;
function odin(x:matr;j1:integer):integer;
var i,k,kmax:integer;
begin
    k:=1;kmax:=1;i:=2;
    while i<=n do
     begin
      if a[i,j1]=a[i-1,j1] 
       then inc(k)
       else begin if k>kmax then kmax:=k;k:=1 end;
      inc(i)
     end;
    odin:=kmax
end;    
begin
    randomize;
    writeln('Матрица');
    for i:=1 to n do
     begin
      for j:=1 to m do
       begin
        a[i,j]:=random(6);
        write(a[i,j]:3)
       end;
      writeln
     end;
    rez:=1;rezj:=1;r:=[]; 
    for j:=1 to m do 
     if odin(a,j)>rez then begin rez:=odin(a,j);rezj:=j;r:=[];include(r,j) end
                      else
                       if rez=odin(a,j) then include(r,j);
    write('самая длинная серия одинаковых: ');                   
    if rez=1 then writeln('1, в любом столбце')
             else 
              begin
               write(rez,', в столбцах: ');
               for i:=1 to m do if i in r then write(i,' ')
              end;
    readln          
end.