Реализация программ,использующих процедуру

uses
  crt;
const
  str=3;{êîëè÷åñòâî ñòðîê A}
  sto=3;{êîëè÷åñòâî ñòîëáöîâ A}
  str1=3;{êîëè÷åñòâî ñòðîê B}
  sto1=4;{êîëè÷åñòâî ñòîëáöîâ B}
type
  MyArr=array[1..1000,1..1000]of integer;
var
  a,b:MyArr;
  i,j,temp,tempi,tempj,tempi1,tempj1:integer;
{ïðîöåäóðà íàõîæäåíèÿ ìàêñèìóìà}
procedure FindMax(var a:MyArr; const strmax,stomax:integer; var tempi,tempj:integer);
var
  max:integer;
  i,j:integer;
begin
  max:=a[1,1];
  tempi:=1;
  tempj:=1;
  for i:=1 to strmax do
    for j:=1 to stomax do
      if a[i,j]>max then
      begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà A:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=10+random(8);
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà B:');
  for i:=1 to str1 do
  begin
    for j:=1 to sto1 do
    begin
      b[i,j]:=20+random(8);
      write(b[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìàêñèìóìû}
  FindMax(a,str,sto,tempi,tempj);
  FindMax(b,str1,sto1,tempi1,tempj1);
  {ìåíÿåì}
  temp:=a[tempi,tempj];
  a[tempi,tempj]:=b[tempi1,tempj1];
  b[tempi1,tempj1]:=temp;
  {âûâîäèì A}
  writeln('Ïîëó÷åííàÿ ìàòðèöà A:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
  {âûâîäèì B}
  writeln('Ïîëó÷åííàÿ ìàòðèöà B:');
  for i:=1 to str1 do
  begin
    for j:=1 to sto1 do
      write(b[i,j]:2,' ');
    writeln
  end;
end.