Из массива удалить все элементы, которые меньше 0.Составить программу в паскале,пожалуйста.

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a.Where(x->x>=0).ToArray; a.Println;
end.


n= 15
67 93 9 -89 95 -85 -39 74 48 -94 -14 -88 74 42 27
67 93 9 95 74 48 74 42 27