Заполнить двумерный массив F размером X*Y целыми случайными числами из интервала

program massive;

const

x=2;

y=3;

var  

 f: array [1..x,1..y] of integer;

 i,j,s:integer;

begin

 randomize;

 s:=0;

 for i:=1 to x do

   begin

     for j:=1 to y do

       begin

         f[i,j]:=random(-130,130);

         write(f[i,j],' ');

       end;

     writeln;

   end;

 for i:=1 to x do

   for j:=1 to y do

     if f[i,j] mod 5 lt;gt; 0 then  

       s:=s+1;

 if s=0 then  

   writeln('Все элементы fкратны 5')

 else  

   writeln('Частей не кратных 5: ',s);

end.

1) Наполняем массив случайными элементами

2) Проверяем каждый элемент на кратность  5

3) И считаем их количество