Составить программу массив из 10 целых чисел

Var
i:integer;
a:array [1..10] of integer;
begin
randomize;
begin
For i:= 1 to 10 do
random (100)-50;
end;
end.