Присвоить случайным образом значения числовым переменным а1,а2,…,а10,а11,а12. Вывести на экран значения этих переменных следующей таблицей — Pascal(Паскаль)

а1
а2 а3
а4 а5 а6
а7 а8 а9 а10

var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12: integer;
 
const space = ' ';
 
begin
  randomize;
   a1 := random(20);
  a2 := random(20);
  a3 := random(20);
  a4 := random(20);
  a5 := random(20);
  a6 := random(20);
  a7 := random(20);
  a8 := random(20);
  a9 := random(20);
  a10 := random(20);
  a11 := random(20);
  a12 := random(20);
 writeln(a1);
 writeln(a2, space, a3);
 writeln(a4, space, a5, space, a6);
 writeln(a7, space, a8, space, a9, space, a10);
 readln;
end.

var
a: array [1..12] of integer;
i,pos,step:byte;
begin
randomize;
write('Массив  ');
for i:=1 to 12 do
  begin
  a[i]:=random(10);
  write(a[i],' ');
  end;
writeln;
step:=1;
pos:=1;
while pos<12-step do
  begin
  for i:=pos to pos+step-1 do
  begin
  write(a[i], ' ');
  if i>12 then halt;
  end;
  writeln;
  pos:=pos+step;
  inc(step);
  end;
end.