Paskal

[qscwdv]

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

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.