Описать массив из 20 элементов вывести его на экран(случайно) отдельной строкой вывести 5-й элемент

Program n1;
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(15);
for i:=1 to 4 do write(a[i],' ');
for i:=6 to 20 do write(a[i],' ');
writeln;
writeln(a[5]);
end.

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-50,50); a.Println;
  Writeln('a[5]=',a[4])
end.

Пример
-11 16 -26 -2 23 0 13 34 49 50 -40 20 -50 18 24 -5 -42 38 27 -23
a[5]=23

Если пятый элемент в первой строке надо при выводе пропустить, то так:

begin
  var a:=ArrRandom(20,-50,50); (a[:4]+a[5:]).Println;
  Writeln('a[5]=',a[4])
end.

Пример
21 39 45 -22 -17 11 45 -26 8 46 23 12 25 36 -46 -39 -40 49 40
a[5]=-32