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

Program p1;Var i:integer;      a:array[1..20] of integer;Begin for i:=1 to 20 do  begin   a[i]:=random(-10,10);   write(a[i],' ');  end; writeln; for i:=1 to 20 do  if a[i]<0 then write(a[i],' ');End.проверь работает или нет,нет возможности проверить просто