Паскаль .Матрица. Болысынiз!

[Akcentbek]

нужно наити элемент заданной строки который большее количество раз встречается в столбцах.

[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.

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

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

[Stilet]

С потолка функцию поиска:

function bugaga(NimLine:integer):integer;
var k,i,e,max:integer;
begin
 max:=0;
 for i:=1 to n do begin e:=0;
  for k:=1 to i do   if matrix[NimLine,k]=matrix[NimLine,i] then inc(e);
  if e>max then max:=matrix[NimLine,i];
 end;
 bugaga:=max; 
end;

Где n - ширина матрицы

[Akcentbek]

Рахмет !
подумаю что сделать ))
надо почитать про функций