Дан массив из 12 частей, в котором есть положительные и отрицательные

program zz1;
const n = 12; // задаем количество частей в массиве
m:array [1..n] of integer=(5, 4, -3, 1, 0, -4, 10, 25, -8, -5, -17, -1);
var i:integer; // задаем переменные целого типа
k:array [1..n] of integer;
begin
for i:=1 to n do k[i]:=m[i];
for i:=1 to n do // выводим исходный массив на экран
write(m[i], );
writeln; // переходим на новую строчку для вывода ответа
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
if k[i] lt; 0 then k[i]:=1; // проверяем, если элемент отрицательный, то сменяем на 1
for i:=1 to n do // организуем цикл, в котором переберем все элементы массива
if k[i] gt; 0 then k[i]:=-5;// проверяем, если элемент положительный, то заменяем на -5
for i:=1 to n do // выводим полученный массив на экран
write(k[i], );
end.