Массивы с логическими связями

uses crt;
const n=4;
      m=6;
var a,b:array[1..n+2,1..m] of integer;
    i,j,mx,kp,ko:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10)-4;
    write(a[i,j]:4);
   end;
  writeln;
 end;
mx:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if a[i,j]>mx then mx:=a[i,j];{находим максимальный}
kp:=0;ko:=0;
for i:=1 to m do
if a[3,i]>0 then kp:=kp+1{количество положительных в 3й строке}
else if a[3,i]<0 then ko:=ko+1;{количество отрицательных в 3й строке}
if kp>ko then{если больше положительных}
 begin
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=a[i,j]-mx;{создаем матрицу В}
  writeln('Максимальный элемент=',mx);
  writeln('Матрица В:');
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(b[i,j]:4);
    writeln;
   end;
 end
else{если больше отрицательных}
 begin
  for i:=n+1 to n+2 do
  for j:=1 to m do
  a[i,j]:=a[n-1,j]+a[n,j];{создаем еще 2 строки в матрице А}
  writeln('Измененная матрица А:');
  for i:=1 to n+2 do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
 end;
readln
end.