К каждому отрицательному элементу элементу матрицы прибавить количество положительных элементов в этой матрице

Var a,b:array[1..20,1..20] of integer;
    i,j,n,m,k1,k2:integer;
    p1,p2:longint;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    k1:=0;k2:=0;p1:=1;p2:=1;
    writeln('Исходная матрица A');
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(11)-5;
        write(A[i,j]:3);
        if A[i,j]>=0 then inc(k1);
        p1:=p1*A[i,j];
       End;
      writeln;
     End;
    writeln('Преоброзованная матрица A');
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        if A[i,j]<0 then A[i,j]:=A[i,j]+k1;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    writeln('Исходная матрица B');
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        B[i,j]:=Random(11)-5;
        write(B[i,j]:3);
        if B[i,j]>=0 then inc(k2);
        p2:=p2*B[i,j];
       End;
      writeln;
     End;
    writeln('Преоброзованная матрица B');
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        if B[i,j]<0 then B[i,j]:=B[i,j]+k2;
        write(B[i,j]:3);
       End;
      writeln;
     End;
    if p1>p2 then writeln('Произведение матрицы A больше') 
     else if p1<p2 then writeln('Произведение матрицы B больше') 
      else writeln('Произведения равны');
    readln;
End.

Var s:string;
Begin
    write('Введите строку: ');readln(s);
    While Pos('пере',s)<>0 do
     Delete(s,Pos('пере',s),4);
    writeln('Полученная строка: ',s);
    readln;
End.