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

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]gt;0 then write(M[i],' ');
for i:=1 to N do
if M[i]lt;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]gt;0 then write(M[i],' ');
for i:=1 to N do
if M[i]lt;0 then write(M[i],' ');
end.