матрица.элементы строки в столбцах

[Akcentbek]

нужно наити элемент строки встречающися в наибольшем количестве столбцов

завтра здавать гарю !!

uses crt;
const
 s=3;
var
   i,j,k,g,p:integer;
   q : array[0..255] of integer;
   qw: array[0..255,0..255] of integer;
begin
   clrscr;


 for i:=1 to 9 do
   begin for j:=1 to 9 do
    begin
      qw[i,j]:=random(3);  write(qw[i,j]:4);
    end; writeln;
   end;
 for g:=1 to 9 do q[g]:=0;
 ///здесь я присваиваю элементу еденицу если он есть вообще в столбце 
   //но не получается проходит по всем элементам но для одного элемента прокатывает //
    for k:=1 to 9 do
     begin
      for j:=1 to 9 do
       begin
        for i:=1 to 9 do
         begin
            if qw[i,j]=qw[s,K] then
            begin
               q[j]:=1;

            end;
         end;
       end;
     end;
       if q[j]=1 then inc(q[k]);
       for k:=1 to 9 do writeln(q[ord(q[k])]:2);

 readln;   
end.


 нащет првильности мысли не знаю но такая /
 присвоить одномерному массиву по порядку еденицу - если элемент есть в столбце и нуль - если нет \\потом для каждого элемента строки узнать сумму едениц и наити наибольший //

 только как сделать так чтобы в строке перебирались разные элементы в случае если есть одинаковые

[Akcentbek]

помогите помогите

[denisbrain]

Сообщение от Akcentbek

помогите помогите

пример на Delphi
Исходник