дано массив целых чисел A[i], где i=1,2…n. вывести на экран сначала отрицательные элементы. а потом остальные — Pascal(Паскаль)

const
n=5;
var
mass: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 readln(mass[i]);
 for i:=1 to n do
  if mass[i]<0 then write (mass[i]);
  for i:=1 to n do
  if mass[i]>0 then write (mass[i]);
end.