нужна помощь в составлении программы(матрицы)

program sort;
uses crt;
const n=5; k=4;
var a:array[1..n,1..k]of integer;
    b:array[1..k,1..n]of integer;
    i,j,pl_a,pl_b,ot_a,ot_b:integer;
 
begin
 clrscr;
 randomize;
 pl_a:=0;
 pl_b:=0;
 ot_a:=0;
 ot_b:=0;
 for i:=1 to n do
 for j:=1 to k do
 begin
  a[i,j]:=random(11)-5;
  if a[i,j]>0 then pl_a:=pl_a+a[i,j]
  else if a[i,j]<0 then ot_a:=ot_a+a[i,j];
 end;
 
 for i:=1 to k do
 for j:=1 to n do
 begin
  b[i,j]:=random(21)-10;
  if b[i,j]>0 then pl_b:=pl_b+b[i,j]
  else if b[i,j]<0 then ot_b:=ot_b+b[i,j];
 end;
 
 writeln('Massiv A do:');
 for i:=1 to n do
 begin
  for j:=1 to k do write(a[i,j]:2,' ');
  writeln;
 end;
 writeln('Summa polozhitelnyh elementov=',pl_a);
 writeln('Summa otricatelnyh elementov=',ot_a);
 
 writeln('Massiv B do:');
 for i:=1 to k do
 begin
  for j:=1 to n do write(b[i,j]:2,' ');
  writeln;
 end;
 writeln('Summa polozhitelnyh elementov=',pl_b);
 writeln('Summa otricatelnyh elementov=',ot_b);
 
 for i:=1 to n do
 for j:=1 to k do
 if a[i,j]>0 then a[i,j]:=pl_a
 else if a[i,j]<0 then a[i,j]:=ot_a;
 
 for i:=1 to k do
 for j:=1 to n do
 if b[i,j]>0 then b[i,j]:=pl_b
 else if b[i,j]<0 then b[i,j]:=ot_b;
 
 writeln('Massiv A posle:');
 for i:=1 to n do
 begin
  for j:=1 to k do write(a[i,j]:2,' ');
  writeln;
 end;
 
 writeln('Massiv B posle:');
 for i:=1 to k do
 begin
  for j:=1 to n do write(b[i,j]:2,' ');
  writeln;
 end;
 readln;
end.