Вопрос по процедуре Опции

[imouto]

Добрый вечер, у меня возник вот какой вопрос. Нужно написать процедуру, которая среди чисел заданной строки таблицы находит такое, которое принадлежит наибольшему количеству столбцов таблицы. Все это делается с помощью двухмерного массива. Так как я в программировании полный профан, удалось мне написать только чтобы одно число из заданой строки принадлежало наибольшему кол-ву столбцов но и там у меня есть какая то ошибка, либо там написан бред. Другая половина процедуры, где из заданной строки будет более одного числа встречаться одинаковое кол-во раз у меня не выполнена. Рассчитываю на чью-нибудь помощь.

procedure processing(var p,v,t: single; q:PMatr);
var
n,m,k,i,j,x,y: single;
begin
for k:=1 to y do
begin
p:q^[t]^[1];
for j:=1 to y do
while i<=x do
begin
if p=q^[i]^[j] then begin v:=v+1; i:=x;
i:=i+1;
end;
for j:=1 to y do
while i<=x do
begin
if n:=q^[i]^[j] then begin n:=q^[i]^[j]; m:=m+1; i:=x
i:=i+1;
end;
end;
end;

[imouto]

В общем написал вот так. Но тут нужно процедуру сделать функцией, булевской. Ниче не могу придумать. Помогите плиз.

Код

type
Treal=real;
Tmas=array [1..1] of TReal;
PMas=^Tmas;
TMatr=array [1..1] of PMas;
PMatr=^Tmatr;

Procedure Zadanie(var mass1:PMatr;Realstr1,Realstl1,strin:integer);
var                    
  m,n,q,qm:integer;
  mm:TReal;
  b:boolean;
  i1,j1,k1:integer;
begin
  qm:=-5;
  b:=true;
  massmax:=mass1^[strin]^[1];
  for k1:=1 to realstr do
  begin
    q:=0;
    b:=false;
    for i1:=1 to Realstl1 do
    begin
      for j1:=1 to Realstr1 do
      begin
        if (mass1^[i1]^[j1]=mass1^[strin]^[k1]) and (b=false) then
        begin
          q:=q+1;
          mm:=mass1^[i1]^[j1];
          b:=true;
        end;
      end;
      b:=false;
      if(q>qm) then
      begin
           massmax:=mm;
           qm:=q;
      end;
    end;
  end;
end;

Сообщение отредактировано: imouto - 28.12.2010 22:00