Дана вещественная матрица A размером 6 х 9 и массив х(9).Заполнить массив A по следующему правилу A[i,j]=x[j] — Pascal(Паскаль)

program try;
const
n=6;
m=9;
var
mas :array[1..n,1..m] of integer;
x :array[1..m] of integer;
i,j :integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(6);
 
for j:=1 to m do
begin
x[j]:=mas[1,j];
write(x[j],' ');
end;
end.