Дан Массив. А(п). Вывести в порядке следования: все отрицательные числа, затем все положительные числа.Помогите пожалуйста Pascal

thx

Заранее сорян, если накосячил c точками - запятыми и тд. (c++ one love)program lolkekchebyrek;var a[n], b, c, i : integer;beginread(n);for i := 1 to n do beginread(a[i]);end;for i := 1 to n do beginif a[i] < 0 then beginwrite(a[i], " ");end;for i := 1 to n do beginif a[i] > 0 then beginwrite(a[i], " ");end;end.