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

const max=100;
type arr=array [1..max] of real;
var  A:array [1..max] of arr;
     i,j,m,n:integer;
     kol:integer;
     Flag:boolean;
     B:arr;
 
begin
writeln('Введите размер матрицы');
readln(m,n);
//Входные элементы загоняем в 1 строку матрицы (попорядку)
writeln('Введите элементы (количеством N)' );
For j:=1 to n do
  read(A[1,j]);
//Копируем 1 строку матрицы во все остальные строки
For i:=2 to m do
  A[i]:=A[i-1];
 
writeln('Результирующая  матрица');    
For i:=1 to m do
  begin
  For j:=1 to n do
    write(A[i,j]:5:4,' ');
  writeln;  
  end;     
 
end.