нужно соединить 2 програмы паскаль

[wlll]

const n=5;
         m=5;
var     a:array[1..n,1..m]of integer;
        i,j,jmax,jmin:integer;
begin
randomize;
for i:=1 to n do
begin
        for j:=1 to m do
        begin
                a[i,j]:=random(21)-10;
                write(a[i,j]:4);
        end;
        writeln;
end;
for i:=1 to n do
begin
        jmax:=1; jmin:=1;
        for j:=2 to m do
        begin
                if a[i,j]>a[i,jmax] then jmax:=j;
                if a[i,j]<a[i,jmin] then jmin:=j;
        end;
        a[i,1]:=a[i,jmax];
        a[i,m]:=a[i,jmin];
end;
writeln('Результат:');
for i:=1 to n do
begin
        for j:=1 to m do
        write(a[i,j]:4);
        writeln;
end;
end.

program xq;
 uses crt;
 const m=3;
 const n=3;
 const a:array[1..n,1..m] of integer=((3,5,7),(4,7,8),(7,9,2));
 var b:array[1..n,1..m] of integer;
 i,t,k,j:integer;
 begin
 clrscr;
 writeln('Как заполнить матрицу? 1-константа 2-случайные числа 3-вручную');
  repeat
  readln(k);
  until k in [1..3];
  case (k) of
  1:
  begin
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=a[i,j];
  end;
  2:
  begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=random(10);
  end;
  3:
  begin
  for i:=1 to n do
  for j:=1 to m do
   begin
    write('b[',i,',',j,']=');
    readln(b[i,j]);
   end;
 end;
end;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;
readln
end.

Will, на будущее, для оформления кода есть специальная кнопочка с решёточкой #
не забывайте оформлять код, как положено!

[Ghost of Night]

Первую описываешь как процедуру и добавляешь во вторую.

В чем проблема?

[wlll]

после каких операторов вставить втроую програму?

[Блуд]

program Project3;



const m=3;
  n=3;
  a:array[1..n,1..m] of integer=((3,5,7),(4,7,8),(7,9,2));


 var b:array[1..n,1..m] of integer;
 i,t,k,j:integer;
jmax,jmin:integer;
 begin

 writeln('Как заполнить матрицу? 1-константа 2-случайные числа 3-вручную');
  repeat
  readln(k);
  until k in [1..3];
  case (k) of
  1:
  begin
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=a[i,j];
  end;
  2:
  begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=random(10);
  end;
  3:
  begin
  for i:=1 to n do
  for j:=1 to m do
   begin
    write('b[',i,',',j,']=');
    readln(b[i,j]);
   end;
 end;
end;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;

for i:=1 to n do
begin
        jmax:=1; jmin:=1;
        for j:=2 to m do
        begin
                if b[i,j]>b[i,jmax] then jmax:=j;
                if b[i,j]<b[i,jmin] then jmin:=j;
        end;
        b[i,1]:=b[i,jmax];
        b[i,m]:=b[i,jmin];
end;
writeln('Результат:');
for i:=1 to n do
begin
        for j:=1 to m do
        write(b[i,j]:4);
        writeln;
end;
readln;
end.