РЕБЯТ СПАСАЙТЕоформить заполнение массива D [1..23]

Pascal

//Вариант наполнения массива случайными числами
const n = 23;
var
 d:array[1..n]of integer;
  i:integer;

begin
  for i:=1 to n do d[i]:=random(21) - 10;
  for i:=1 to n do write(d[i]:3);
end.

//Вариант заполнения массива с клавиатуры
const n = 23;
var
  d:array[1..n]of integer;
  i:integer;

begin
  for i:=1 to n do readln(d[i]);
  for i:=1 to n do write(d[i]:3);
end.