Дополнить код! - Pascal ABC

const n=5;
      m=6;
var a:array[1..5,1..6] of integer;
    x:array[1..m] of integer;
    i,j:integer;
begin
randomize;
writeln('Массив X');
for i:=1 to m do
 begin
  x[i]:=random(10);
  write(x[i]:4);
 end;
writeln;
i:=2;
while i<=n do
 begin
  for j:=1 to m do
  a[i,j]:=x[j];
  inc(i,2);
 end;
writeln('Матрица А');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
end.