Сформировать массив так, чтобы сначала располагались m1 столбцов массива x, затем m2 столбцов массива y - Turbo Pascal

Формулировка задачи:

Доброго времени суток. Написал программу, но не могу понять где ошибся. Программа работает наполовину правильно. Дано два двумерных массива х(nm1) ,y(nm2). Cформировать массив z(n(m1+m2)), таким об¬разом чтобы сначала располагались m1 столбцов массива x, затем m2 столбцов массива y. Заранее спасибо. Ошибка где то с 35 по 40 строку

program c7;
uses crt;
const n=2;m1=2;m2=2;
var x:array[1..n,1..m1] of real;
y:array[1..n,1..m2] of real;
z:array[1..n,1..m1+m2] of real;
k,i,j,l:integer;
begin
 for i:=1 to n do
 begin
 for j:=1 to m1 do
 begin
 x[i,j]:=random(11)-5;
 write(x[i,j]:4:0);
 end;
writeln;
end;
writeln(' ');
for i:=1 to n do
begin
for k:=1 to m2 do
begin
y[i,k]:=random(11)-5;
write(y[i,k]:4:0);
end;
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m1 do
begin
z[i,j]:=x[i,j];
end;
end;
for i:=1 to n do
begin
for j:=m1+1 to m1+m2 do
begin
for k:=1+m2 to m2  do
begin
z[i,j]:=y[i,k];
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to m1+m2 do
begin
write(z[i,j],'  ');
end;
writeln;
end;
end.

Решение задачи: «Сформировать массив так, чтобы сначала располагались m1 столбцов массива x, затем m2 столбцов массива y»

Листинг программы

program c7;
uses crt;
const n=2;m1=2;m2=2;
var x:array[1..n,1..m1] of real;
y:array[1..n,1..m2] of real;
z:array[1..n,1..m1+m2] of real;
k,i,j,l:integer;
begin
 clrscr;randomize;
 for i:=1 to n do
 begin
 for j:=1 to m1 do
 begin
 x[i,j]:=random*11-5;
 write(x[i,j]:8:4);
 end;
writeln;
end;
writeln(' ');
for i:=1 to n do
begin
for k:=1 to m2 do
begin
y[i,k]:=random*11-5;
write(y[i,k]:8:4);
end;
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m1 do
begin
z[i,j]:=x[i,j];
end;
end;
for i:=1 to n do
begin
for j:=m1+1 to m1+m2 do
begin
z[i,j]:=y[i,j-m1];
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m1+m2 do
begin
write(z[i,j]:8:4,'  ');
end;
writeln;
end;
readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он содержит несколько переменных и массивов, которые используются для решения поставленной задачи.

n - это константа, которая определяет количество строк в массиве x и y.
m1 и m2 - это константы, которые определяют количество столбцов в массиве x и y соответственно.
x, y и z - это массивы, которые используются для хранения данных.
k, i и j - это переменные, которые используются для итерации по массивам x, y и z.
randomize - это команда, которая генерирует случайное число.
for - это конструкция цикла, которая используется для итерации по строкам или столбцам массива.
write - это команда, которая выводит значение переменной на экран.
readln - это команда, которая читает ввод пользователя и завершает программу. В начале программы инициализируются случайные числа для генерации значений массивов x, y и z. Затем происходит итерация по каждой строке массива x и y, где каждая строка состоит из m1 и m2 столбцов соответственно. Значения каждой ячейки массива записываются на экран. После этого происходит итерация по каждому столбцу массива z, где каждая строка состоит из n строк массива x и y. Значения каждой ячейки массива z записываются на экран. В конце программы выводится общий результат.