Действия с матрицами

uses crt;
const m=4;
      n=2;
type mtr=array[1..m,1..n] of integer;
procedure matrix(var a:mtr;s:string);
var i,j:integer;
begin
writeln(s);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    repeat
     a[i,j]:=-10+random(21);
    until a[i,j]<>0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
var a,b,c:mtr;
    i,j,k,p,q:integer;
begin
matrix(a,'Матрица А');
matrix(b,'Матрица В');
p:=1;
for i:=1 to m do
p:=p*a[i,2];
writeln('Произведение элементов 2 столбца матрицы А=',p);
writeln('Преобразованная матрица А');
q:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if a[i,j]>0 then
     begin
      inc(q);
      a[i,j]:=0;
     end;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Количество положительных элементов(замененных на 0)=',q);
writeln('Матрица С');
for i:=1 to m do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+a[i,k]*b[k,j];
  c[i,j]:=p*c[i,j];
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(c[i,j]:8);
  writeln;
 end;
end.