Создать массив a из десяти целых чисел, принадлежащих промежутку [-50; 50). вывести полученный массив на экран

Var   A:array[1..10] of integer;
  i: integer;
begin
randomize;
for i:=1 to 10 do begin 
A[i]:=(random(101)-50);
 writeln (A[i]);
 end;
end.