Найти произведение сумм столбцов матрицы

program hhhhhhh;
uses crt;
const mx = 20;
var a: array [1..mx, 1..mx] of integer;
i, r, j, c: integer;
p: double;
s:real;
found: boolean;
begin
randomize;
write('Введите кол-во строк (1..', mx, '): ');
readln(r);
writeln;
if (r<1) or (r> mx) then
writeln(' не верно введены данные!!!')
else
write('Введите кол-во столбцов (1..', mx, '): ');
readln(c);
if (c<1) or (c> mx) then 
writeln(' не верно введены данные!!!')
else
writeln;
writeln(' Исходная матрица:');
writeln;
for i := 1 to r do
begin
for j := 1 to c do
begin
a[i, j] := -99 + random(199);
write(a[i, j]:4)
end;
writeln;
end;
writeln;
writeln;
writeln(' Сумма положительных элементов столбцов матрицы:');
writeln;
writeln;
for j := 1 to c do
begin
s:=1;
p := 0;
found := false;
writeln;
write('В ',j:2, ' столбце: ');
for i := 1 to r do
if (a[i, j] > 0)then 
begin
p := p + a[i, j];
 
 
found := true
end;
if found
then writeln(p:0:0)
else writeln('Положительные элементы не найдены!!!');
 
 
end;
 
end.