даны целые положительные числа M и N и набор из М чисел. Сформировать матрицу размера М х N , у которой в каждом столбце содержатся все числа из исходного набора (в том же порядке ) . из Pascal ABC.

const  m = 8;  n = 7;var  a: array[1..m, 1..n] of integer;  i, j: integer;begin  writeln('Введите через пробел ', m, ' чисел');  for i := 1 to m do  begin    Read(a[i, 1]);    for j := 2 to n do a[i, j] := a[i, 1]  end;  Writeln('Сформированный массив');  for i := 1 to m do  begin    for j := 1 to n do Write(a[i, j]:5);    Writeln  endend.Тестовое решение:Введите через пробел 8 чисел4 -6 10 93 345 -32 0 11Сформированный массив    4    4    4    4    4    4    4   -6   -6   -6   -6   -6   -6   -6   10   10   10   10   10   10   10   93   93   93   93   93   93   93  345  345  345  345  345  345  345  -32  -32  -32  -32  -32  -32  -32    0    0    0    0    0    0    0   11   11   11   11   11   11   11