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

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.            

Если ответ по предмету Другие предметы отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.