Дан массив. Переписать его элементы в иной массив такового же размера

program zz1;
const n = 14; //задаем количество частей в массиве
var i, k, p:integer; // задаем переменные целого типа
m,v:array [1..n] of integer;
begin
for i:=1 to n do // записываем в массив числа случайным образом
m[i]:=random(201)-60;
for i:=1 to n do //выводим массив на экран
write(m[i], );
writeln; // переходим на новейшую строку для вывода ответа
k:=n+1;p:=0; //задаем начальное значение для малого элемента
for i:=1 to n do // организуем цикл, в котором переберем все числа массива
if m[i] lt; 0 then begin p:=p+1;v[p]:=m[i];end else begin k:=k-1;v[k]:=m[i];end;
for i:=1 to n do //выводим массив на экран
write(v[i], );
end.