Вывести отрицательные числа, кратные 5 и найти их количество - Pascal ABC

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

Кому не сложно помогите пожалуйста, не хочет работать программа((

                    Листинг программы
                
 
                        
                          
                    
program massive_random_mod_5;
{В одномерном массиве c случайными целыми числами в диапазоне от -50 до 50,
вывести отрицательные числа, кратные 5. Найти их количество.}
const c=-51;n=51;
var a:array[c..n] of byte;
    i,l,b,j:integer;k:char;
begin
randomize;
i:=1;
 
      while i<>4 do
      begin
        l:=-50+random(100);
        a[i]:=l;
        writeln('Ячейка A',i,'=',a[i],' ');
        i:=i+1;
      end;
 
 k:=('n');
 
    while k<>('y') do
      begin
      j:=-51;
      v:=j;
        for v to 50 do
        begin
          if a[j]mod 5 = 0 then
          writeln(a[j]);
          j:=j+1;
        end;
      writeln('Количество чисел кратных 5',j);
      writeln('Закрыть программу? Y-N?');
      readln(k);
      end;
      
end.

Решение задачи: «Вывести отрицательные числа, кратные 5 и найти их количество»

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

const 
   n=25;
var 
   a:array[1..n] of integer;
   i:integer;
begin
   randomize;
   for i:=1 to n do  
      a[i]:=-50+random(100)

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

В данном коде используется язык программирования Pascal ABC. Константа n определяет максимальное количество элементов в массиве a. Переменная a представляет собой массив целых чисел, который будет заполняться отрицательными числами, кратными 5. Переменная i используется для итерации по элементам массива a. С помощью цикла for происходит заполнение массива a отрицательными числами, кратными 5. В каждой итерации цикла значение переменной i увеличивается на единицу, а значение переменной a[i] вычисляется как -50 + random(100), где random(100) генерирует случайное число от 0 до 99. После выполнения цикла, в массиве a будут храниться отрицательные числа, кратные 5. Для подсчета количества таких чисел можно использовать переменную count. В начале программы ее значение устанавливается равным 0. В каждой итерации цикла, перед вычислением значения a[i], к переменной count добавляется единица. После завершения цикла, значение переменной count будет содержать количество отрицательных чисел, кратных 5.