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

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

[volvo]

что делать тогда, если там бред написан?

Переписать, чтоб не было бреда, наверное? Я по крайней мере другого способа не знаю.

Для начала - уточним задание: процедура получает на вход матрицу и номер строки. Она должна вернуть максимально часто встречающееся в одном столбце число из этой строки? То есть, если у меня матрица
1, 6, 3, 4, 5
6, 3, 4, 0, 9
6, 5, 1, 3, 5
3, 8, 6, 4, 2
, и номер строки = 1, то на выходе я должен получить "3"? (поскольку 3 встречается в четырех столбцах, первом, втором, третьем и четвертом, а больше ни одно число из первой строки в четырех и более столбцах не встречается) Я правильно понял задание?

Добавлено через 1 мин.

Где-то про это в ЧАВО написано...

Как не надо писать программы, пункт 2 в этом посте...