20 , составить программу, которая формирует одномерный массив случайными числами от - 100 до 100 и выводит его на экран

Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
    Begin
    A[i]:=random(201)-100;
    Write(A[i],' ');
    End;
End.