Описать массив из 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.