Паскаль.Двумерные массивы,объединить два массива в один с сортировкой столбцов по возрастанию.

[valord]

Здравствуйте уважаемые господа разбирающиеся в паскале прошу вас помочь с программой над которой бьюсь уже несколько дней.
Даны два массива чисел размером М*К(матрица А) и М*Т(матрица B). Объединить их столбцы так, чтобы в массиве-результате (M*(K+T))(матрица С) в первой строке элементы получились упорядоченными по возрастанию.Числа вводятся с клавиатуры.
Пример:


Преподаватель упорно запрещает из матриц A и B сначала сделать матрицу С,и после матрицу С сортировать.
Прошу учесть что элементы в матрицу С вносятся по столбцам,т.е. в каждой матрице(А и B) находим минимальный элемент в первой строчке, сравниваем их и меньший заносится в матрицу С ,но с элементами стоящими под ним,т.е. в матрице А нашли минимальный элемент=1,затем в матрице B=-3,сравнили их и занесли в матрицу С столбец из B
-3
9
и так для всех следующих элементов.
Заранее спасибо за помощь.

[MaTBeu]

Где ваши наработки?

[valord]

uses crt;
var
k,t,m,z,h,x,i,j,mina,minb,kt,ka,kb,d,q,y:integer;
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:=k+t;
mina:=a[1,1];
minb:=b[1,1];
i:=1;
while i<=t do
begin
if mina>a[1,i] then
mina:=a[1,i]
else
i:=i+1;
end;
j:=1;
while j<=k do
begin
if minb>b[1,j] then
minb:=b[1,j]
else
j:=j+1;
end;
ka:=mina-10;
kb:=minb-10;
i:=1;
j:=1;
h:=1;
while z<=kt do
begin
while i<=t do
begin
d:=1;
while d<=t do
begin
if (mina>a[1,d]) and (mina>ka) then
begin
mina:=a[1,d];
x:=d;
end
else
d:=d+1;
end;
   while j<=k do
   begin
   q:=1;
while q<=k do
begin
if (minb>b[1,q]) and (minb>kb) then
begin
minb:=b[1,q];
y:=q;
end
else
q:=q+1;
end;

 if minb<mina then
 begin
  while h<=m do
  begin
  c[h,z]:=b[h,y];
  h:=h+1;
  end;
  end
  else
  while h<=m do
  begin
  c[h,z]:=b[h,x];
  h:=h+1;
  end;
  j:=j+1;
  end;
  i:=i+1;
  ka:=mina;
  kb:=minb;
  end;
  z:=z+1;
  end;
   for h:=1 to m do
  begin
   for z:=1 to kt do
   write(c[h,z]:3);
   writeln;
  end;
  writeln(mina,',',minb);
  readkey;
  end.

Вот.

[Stilet]

По башке бы твоему преподу за выхухольство...
Его вариант не просто неоптимален, но и непонятен.

[valord]

Виталий скажите какой шаг вам не понятен попробую объяснить)а преподаватель это она,действительно странная тетка(
Я вот сам думаю сначала соединить две матрицы в одну,а потом на это соединение накладывать условие но чтото и с соединением у меня не особо получается.

kt:=k+t;
for i:=1 to kt do
begin
if i<=t then
for j:=1 to m do
begin
c[j,i]:=a[j,i];
end
else
for h:=1 to k do
for j:=1 to m do
begin
c[j,i]:=b[j,h];
end;
end;

[Stilet]

Мне не понравилось это:

Преподаватель упорно запрещает из матриц A и B сначала сделать матрицу С,и после матрицу С сортировать

Иначе код будет неоптимальным.
в принципе можно и как она хочет, но морочно.
Впрочем преподаватели любят стденту на шею хомут повесить...

[valord]

Да вот я и маюсь с этим морочно ток чтото не получается, а про соединение двух матриц и сортировку уже в последней ей совсем не понравилось говорит нельзя и все тут,если я так сделаю она мне программу не зачтет(