Турбопаскаль.Двумерные массивы.Из двух матриц составить третью предвариельно сортируя перед занесением в 3 матрицу. - Pascal - Ответ 182613

uses crt;
var
h,y,k,t,m,z,x,i,j,mina,minb,kt,ka,kb:integer;
pa,pb:string;
a:array [1..6,1..6] of integer;
b:array [1..6,1..6] of integer;
c:array [1..6,1..12] of integer;
begin
clrscr;
writeln('kolichestvo strok v matricax a i b - celoe chislo<=6');
read(m);
writeln('kolichestvo stolbcov v matrice a - celoe chislo<=6');
read(t);
writeln('chislo strok v oboix matricax = ',m);
writeln('chislo stolbcov v matrice a = ',t);
 if (m>=1) and (m<=6) and (t>=1) and (t<=6) then
 begin
 writeln('znachenie elementov matrici - celie chisla');
  for i:=1 to m do
  begin
   for j:=1 to t do
   begin
   write('a[',i,',',j,']=');
   read(a[i,j]);
   end;
  end;
  for i:=1 to m do
  begin
   for j:=1 to t do
   write(a[i,j]:3);
   writeln;
  end;
 end
 else
writeln('oshibka!chislo strok ili stolbcov matrici menshe 1 ili bolshe 6');
writeln('kolichestvo stolbcov v matrice b - celoe chislo<=6');
read(k);
writeln('chislo strok v oboix matricax = ',m);
writeln('chislo stolbcov v matrice a = ',k);
 if (m>=1) and (m<=6) and (k>=1) and (k<=6) then
 begin
 writeln('znachenie elementov matrici - celie chisla');
  for i:=1 to m do
  begin
   for j:=1 to k do
   begin
   write('b[',i,',',j,']=');
   read(b[i,j]);
   end;
  end;
  for i:=1 to m do
  begin
   for j:=1 to k do
   write(b[i,j]:3);
   writeln;
  end;
  end
  else
writeln('oshibka!chislo strok ili stolbcov matrici menshe 1 ili bolshe 6');
writeln('matr c');
kt:=2;
 
 
 
 
if a[1,1]<=b[1,1] then
begin
for h:=1 to m do
 
begin
c[h,1]:=a[h,1];
c[h,2]:=b[h,1];
end;
end
else
begin
for h:=1 to m do
begin
c[h,1]:=b[h,1];
c[h,2]:=a[h,1];
end;
end;
 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
kt:=kt+t-1;
for i:=2 to t do
for z:=1 to kt do
if (a[1,i]<=c[1,z]) and (a[1,i]<=c[1,kt]) then
begin
for j:=1 to m do
begin
c[j,kt+1]:=c[j,kt];                                  
c[j,z+1]:=c[j,z];                                    
c[j,z]:=a[j,i];                                      
kt:=kt+1;                                            
end;                                                 
end                                                  
else                                                 
for j:=1 to m do                                     
begin                                                
c[j,kt+1]:=a[j,i];                                   
kt:=kt+1;                                            
end;                                                 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
  y:=k+t;
   for i:=1 to m do
  begin
   for j:=1 to y do
   write(c[i,j]:3);
   writeln;
  end;
 
  readkey;
  end.