В целочисленном массиве определить число соседств - Pascal

Формулировка задачи:

Доброе время суток! Я совсем чайник... Помогите разобраться и написать программы, при выполнении которых в целочисленном массиве определяется число соседств: четного квадрата и нуля. зарание благодарен вам.

Решение задачи: «В целочисленном массиве определить число соседств»

Листинг программы

uses crt;
var
ms : array [1..5] of real;
a,b : integer;
begin
clrscr;
randomize;
writeln('Введите массив: ');
for a:=1 to 5 do begin
readln(ms[a]);
end;
for a:=1 to 5 do
write(ms[a]:2:0,' ');
writeln;
for a:=1 to 5 do begin
if ((odd(round(ms[a]))=false) and (frac(sqrt(ms[a]))=0) and (ms[a]<>0))
and
( (ms[a-1]=0)or(ms[a+1]=0))
then writeln('Найдено соседство элементов:',ms[a]:4:0);
end;
readkey;
end.

Объяснение кода листинга программы

Создаётся переменная ms, которая представляет собой массив из пяти чисел типа real.
Задаются две переменные a и b типа integer.
Выводится сообщение «Введите массив: », после чего пользователю предлагается ввести пять чисел для массива ms.
Для каждого числа в массиве ms выводится его значение с двумя десятичными знаками и пробелом.
Затем проверяется условие для каждого числа в массиве ms:
- Если число является четным и его квадратный корень является целым числом и не равен нулю, и если число не равно нулю, то это число может быть соседством для одного из предыдущих чисел.
- Если предыдущее число в массиве равно нулю, или следующее число в массиве равно нулю, то текущее число может быть соседством для этого числа.
Если выполняется хотя бы одно из этих условий, то выводится сообщение «Найдено соседство элементов:», а затем число в массиве ms, которое является соседством.
Программа завершается, когда пользователь нажимает клавишу Enter.