Вот что у меня получилось. Проблема у меня в том, что в в конце на экран не выводится содержимое третьего массива - "С".
Помогите исправить плз...
uses Crt;
const T=3;
K=4;
M=5;
var a:array [1..M, 1..K] of integer;
b:array [1..M, 1..T] of integer;
c:array [1..M, 1..T+K] of integer;
i,j,e, temp:Integer;
begin
for i:=1 to M do
for j:=1 to K do
begin
readln(a[i, j]);
c[i, j]:=a[i, j];
end;
for i:=1 to M do
for j:=1 to T do
begin
readln(b[i, j]);
c[i, j+K]:=b[i, j];
end;
Writeln('mas a');
for i:=1 to M do
begin
for j:=1 to K do
Write(a[i, j], ' ');
Writeln;
end;
Writeln('mas b');
for i:=1 to M do
begin
for j:=1 to T do
Write(b[i, j], ' ');
Writeln;
end;
Writeln('mas c');
for i:=1 to M do
begin
for j:=1 to T+K do
Write(c[i, j], ' ');
Writeln;
end;
for e:=1 to M do
for i := 1 to T+K-1 do
for j := 1 to T+K-i do
if (c[e, j] > c[e, j+1]) then
begin
temp := c[e, j];
c[e, j] := c[e, j+1];
c[e, j+1] := temp;
end;
Writeln('res mas c');
for i:=1 to M do
begin
for j:=1 to T+K do
Write(c[i, j], ' ');
Writeln;
end;
readln;
end.