Пусть дано 100 чисел. Напечатайте сначала все отрицательные из них, затем — все остальные -Pascal(Паскаль)

const
  max=100;
var
  a:array[1..max]of integer;
  temp,res:string;
  i:integer;
begin
  writeln('Массив: ');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    if a[i]<0 then
      write(a[i],' ')
    else
    begin
      str(a[i],temp);
      res:=res+temp+' ';
    end;
  end;
  writeln;
  writeln('Итог: ');
  writeln(res)
end.