Дан массив. вывести на экран сначала его неотрицательные элементы, затем отрицательные.

Var m:array[1..100] of integer;
             i,n:integer;
begin 
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ');
end.            

Var m:array[1..100] of integer;
             i,n:integer;
begin 
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ');
end.