Створити цілочисельний одновимірний масив а[1..5] з елементом введеним через функцію rondom

Program gt;
var a:array[1..5]of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
end.