Нужно вставить код из одной программы в другую

Program dima;
uses CRT;
const n=4;m=4;x=4;
type Matrixx=array[1..x,1..x]of real;
var A,B,C:array[1..n,1..m]of real;
i,j,k:integer;
v,sum,res:real;
Begin
ClrScr;
{----1 ***матриця***}
v:=3;
  for i:=1 to m do begin
    for j:=1 to m do begin
      if i = j then
                A[i,j]:=10+(exp(i)+exp(j))
      else
                A[i,j]:= (1+cos(i+j)*sin(i-j))+sqrt(v);
end;
end;
writeln('Matrix A :');
for i:=1 to n do begin
    for j:=1 to m do begin
            write(A[i,j]:4:2,' ');
        if j=4 then
                   writeln;
end;
end;
writeln;
{-----2 ******B=A^T*******}
for i:=1 to n do
    for j:=1 to m do  
            B[j,i]:=A[i,j];
writeln('Transponovana B=^T :');
for i:=1 to n do begin
    for j:=1 to m do begin 
              write(B[i,j]:4:2, ' ');
              if j=4 then
                         writeln;
end;
end;
{-----3 *********Наступна матриця (сума діагонаьних елементів)************}
sum:=0;
for i:=1 to n do
        sum:=sum+A[i,i];
writeln;
writeln('Elementy golovnoi diagonali matr[A]: ');
for i:=1 to n do
         write(A[i,i]:4:2,' ');
writeln;
writeln('Slid[A]= ', sum:4:2);
sum:=0;
for i:=1 to n do 
         sum:=sum+B[i,i];
writeln;
writeln('Elementy golovnoi diagonali matr[B]: ');
for i:=1 to n do
         write(B[i,i]:4:2,' ');
writeln;
writeln('Slid[B]= ',sum:4:2);
{-----4 ****C=A*B****}
for i:=1 to 4 do
    for j:=1 to 4 do begin
              res:=0;
        for k:=1 to 4 do
              res:=res + A[i,k]*B[k,j];
              C[i,j]:=res;
end;
writeln;
writeln('Matrix C: ');
for i:=1 to n do begin
    for j:=1 to m do begin
            write(C[i,j]:4:2,' ');
        if j=4 then
               writeln;
end;
end;
readln;
End.

const
  N = 4;
 
begin
  var a:=new integer[N,N];
  writeln('Input matrix A');
  for var i:=0 to N-1 do
  begin
    for var j:=0 to N-1 do
    begin
      a[i,j]:=Random(-100,100);
      write(a[i,j]:5);
    end;
    writeln;
  end;
  var max: integer = integer.MinValue;
  for var j:=0 to N-1 do
  begin
    var s: integer = 0;
    for var i:=0 to N-1 do s+=a[i,j];
    write(s:5);
    if (max<s) then max:=s;
  end;
  writeln;
  writeln('narma matrix A ');
  write(max);
end.

const
  N = 4;
 
begin
  var a:=new integer[N,N];
  writeln('Input matrix A');
  for var i:=0 to N-1 do
  begin
    for var j:=0 to N-1 do
    begin
      a[i,j]:=Random(-100,100);
      write(a[i,j]:5);
    end;
    writeln;
  end;
  var max: integer = integer.MinValue;
  for var j:=0 to N-1 do
  begin
    var s: integer = 0;
    for var i:=0 to N-1 do s+=a[i,j];
    write(s:5);
    if (max<s) then max:=s;
  end;
  writeln;
  writeln('narma matrix A ');
  write(max);
end.