Дан массив, состоящий из целых чисел. Напишите программку, которая определяет, есть

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