Приведение к квадратной матрице

program qwe;
uses wincrt;
const
 m=6;n=4;
var
 C,B,A: array[1..4,1..6] of integer;
 V: array[1..4] of integer;
 q,s,i,j: integer;
 max:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(40)+10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
 s:=0;
for i:=3 to 3 do
begin
  for j:=1 to m do
    if A[i,j]>0 then
    s:=s+1;
    end;
  writeln('Количество положительных элементов в третьей строке: ',s);
q:=0;
for i:=1 to n do
  begin
    for j:=3 to 3 do
     if A[i,j]<0 then
       q:=q+1;
  end;
 writeln('Количество отрицательных элементов в третьей строке: ',q);
for i:=1 to n do
  begin
    for j:=1 to m do
      if A[i,j]>MAX then
        max:=A[i,j];
 end;
 writeln('Максимальный элемент матрицы А',max:6);
 writeln('Матрица B:');
 
for i:=1 to n do
 begin
   for j:=1 to m do
if (s>q) then
  B[i,j]:=A[i,j]*max;
 end;
for i:=1 to n do
 begin
   for J:=1 to m do
    write(B[i,j]:6);
     writeln;
 end;
 writeln;
for i:=1 to n+2 do  {*получить квадратную матрицу, добавив строки,
элементы каждой из которых представляют сумму двух последних элементов в столбце.*}
 begin
   for j:=1 to m do
   begin
    C[i,j]:=A[i,j];
    if (n>4) then C[i,j]:=C[i-2,j-2]+C[i-1,j-1];
    write(C[i,j]:6);
   end;
 writeln;
 end;
end.

a:array[1..6,1..6];//максимальный размер матрицы
for j:=1 to 6 do//столбцы
 begin
  s:=0;
   for i:=3 to 4 do//3 и 4 элементы в столбце
   s:=s+a[i,j];
   a[5,j]:=s;//записываем в 5 и 6
   a[6,j]:=s;
  end;

a:array[1..6,1..6];//максимальный размер матрицы
for j:=1 to 6 do//столбцы
 begin
  s:=0;
   for i:=3 to 4 do//3 и 4 элементы в столбце
   s:=s+a[i,j];
   a[5,j]:=s;//записываем в 5 и 6
   a[6,j]:=s+a[4,j];
  end;