Const
n = 5;
var
a: array [0..n-1] of shortint;
i: byte;
begin
randomize;
writeln ('Сформированный массив: ');
for i:=0 to n-1 do
begin
a[i]:=random (51);
write (a[i], '; ');
end;
end.
В паскале абц есть встроенная справка: помощь->справка->стандартные модули->graphabc, вроде так, там описаны все процедуры с функциями для работы с графикой, более чем исчерпывающая информация