На языке pascal сформировать массив из 5 целых чисел, выбранных случайным образом от 0 до 50

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.