Задача в паскале. помогите пожалуйста... очень срочно нужно!

используй эту прог
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
var
j,i,n,m:integer;
a:matr;
s:array[1..100] of integer;
fl:boolean;
procedure eqv3(d:matr;k:integer;var f:boolean);
var
c:array[1..100] of integer;
i,j,w,ch:integer;

begin
for i:=1 to n do
c[i]:=d[i,k];
for i:=1 to n-1 do
for j:=i+1 to n do
if c[i]>c[j] then begin
w:=c[i]; c[i]:=c[j]; c[j]:=w end;
//for i:=1 to n do write(c[i]:3); // writeln;
ch:=0;
for i:=1 to n-2 do begin
if (c[i]=c[i+1]) and (c[i]=c[i+2]) then
begin inc(ch);end;
end;
f:=ch=1;
end;

BEGIN
randomize;
clrscr;
writeln('решение задачи на массив ');
writeln('---------------------------');
writeln;
write('Ввксти число строк--> '); readln(n);
write('Ввксти число столбцов--> '); readln(m);
writeln('Имсходный массив ');
writeln('------------------');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(8);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Сумма строк');
for i:=1 to n do begin
s[i]:=0;
for j:=1 to m do
s[i]:= s[i]+a[i,j];
write( s[i]:4); end;
writeln;
for j:=1 to m do begin
if not odd(j) then
begin eqv3(a,j,fl);
if fl then begin
writeln('Вектор Х: ',' столбец ',j);
writeln;
for i:=1 to n do write(a[i,j]:3);
writeln; break; end;
end;
end;
writeln;
writeln('конец задачи ');
readln;
END.

Вот этот кусок кода вычисляет одну цифру. Всего в идеале таких цифр будет n.
v:=0;// суммируем сюда
for i:=1 to n do // перебираем элементы строки
begin
if (a[1,i]>0) then v:=v+1;// плюс если что-то там
if (a[1,i] mod 2=0)and(a[1,i] mod 3=0) then v:=v+1;// плюс если кратно чему-то
end;