нужно составить код в PascalABC

Даны натуральное число n и целые числа
1 2 , , ..., . n a a a
Найти:
а) количество пар "соседних" чисел аi равных между собой;
б) количество пар "соседних" чисел ai равных нулю;
в) количество пар "соседних" чисел ai являющихся четными числами;
г) количество пар "соседних" чисел ai оканчивающихся на цифру 5.​

1) Хранение информации -в технике информация хранится на различных носителях к примеру: жёсткий диск или карта памяти или микросхема, чипсет
2) Обработка информация - Обработка информации в технике может проходить посредством: обработки графической информации,к примеру,видеокарта обрабатывает цифровую информацию и воспроизводит её графически на нашем мониторе, дисплее, или телефонная связь,телефон записывает наш звук - речь и кодирует её в спец сигнал и после декодирует в трубке собеседника
3) Передача информации - техническая передача информации происходит посредством телефонной сети (телефонные разговоры), Интернет, Bluetooth, Wi-Fi,  IrDA (ИК-порт), NFC и т.д

Program abc;
type 
   mas = array[0..1000] of integer;
var 
   a: mas;
   i, n, max: integer;
begin
  WriteLn('Введите кол-во эл-тов массива:');
  ReadLn(n);
  for i := 1 to n do
  begin
    WriteLn('Введите значение элемента №', i);
    ReadLn(a[i]);
  end;
  WriteLn('Все элементы массива имеют значение');
  max := -1;
  for i := 1 to n do
    if a[i] > max then
      max := a[i];
    if max <> -1 then
      Writeln('Максимальное значение положительного элемент = ', max)
    else Writeln('Положительных элементов нет');
    ReadLn;
end.