Функция, которая в одномерном массиве подсчитывает количество чисел, нацело делящихся на заданное число m

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
const kmax=14;
  const lmax=15;
 
var Kk,k,l,n,j,q:integer;
    KOL:array[1..kmax] of integer;
    F:array[1..kmax,1..lmax]of integer;
 
type tmas=array[1..lmax] of integer;
 
Function Quantity(var X:tmas;L1,m,i:integer):integer;
begin
Result:=0;
   for i := 1 to L1 do
     if X[i] mod m =0 then
     Result:=result+1
end;
 
 var T:tmas;
begin
writeln('Введите k');
readln(k);
writeln;
writeln('Введите l');
readln(l);
writeln;
 
 writeln('Введите матрицу F'); //Ввод матрицы
 for j := 1 to k do
 begin
   for q := 1 to l do
     read(F[j,q]);
 end;
 
 writeln('Введите число n');
 readln(n);
 writeln;
 
 writeln(' Матрица F'); //Вывод матрицы
 for j := 1 to k do
 begin
   for q := 1 to l do
     write(F[j,q],' ':3);
     writeln;
 end;
 writeln;
 
 
 writeln('Массив KOL');      //Создание массива KOL
 for j := 1 to k do
   begin
     for q:=1 to l do
       T[q]:=F[j,q];
       KOL[j]:=Quantity(T,l,n,j);
       write(KOL[j]);
   end;
 
  readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
const kmax=14;
      lmax=15;
type tmas=array[1..lmax] of integer;
Function Quantity(x:tmas;L1,m:integer):integer;
var i:integer;
begin
Result:=0;
for i:=1 to L1 do
if x[i] mod m =0 then  Result:=result+1
end;
 
var  F:array[1..kmax]of tmas;
     KOL:tmas;
     k,l,m,j,q,p,x:integer;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
randomize;
repeat
write('Введите k от 2 до ',kmax,' k=');
readln(k);
until k in [2..kmax];
repeat
write('Введите l от 2 до ',lmax,' l=');
readln(l);
until l in [2..lmax];
writeln(' Матрица F'); //Вывод матрицы
for j:=1 to k do
 begin
  for q:=1 to l do
   begin
    F[j,q]:=random(50);
    write(F[j,q]:3);
   end;
  writeln;
 end;
writeln('Введите число для проверки кратности элементов матрицы m=');
readln(m);
 writeln('Массив KOL');      //Создание массива KOL
for j:=1 to k do
 begin
  KOL[j]:=Quantity(F[j],l,m);
  write(KOL[j]:3);
 end;
for j:=1 to k-1 do
for q:=j+1 to k do
if KOL[j]>KOL[q] then
 begin
   x:=KOL[j];
   KOL[j]:=KOl[q];
   KOL[q]:=x;
   for p:=1 to l do
    begin
     x:=F[j,p];
     F[j,p]:=F[q,p];
     F[q,p]:=x;
    end;
  end;
writeln('Перестановка строк по возрастанию количества кратных чисел');
for j:=1 to k do
 begin
  for q:=1 to l do
  write(F[j,q]:3);
  writeln;
 end;
readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
const kmax=14;
      lmax=15;
type tmas=array[1..lmax] of integer;
Function Quantity(x:tmas;L1,m:integer):integer;
var i:integer;
begin
Result:=0;
for i:=1 to L1 do
if x[i] mod m =0 then  Result:=result+1
end;
 
var  F:array[1..kmax]of tmas;
     KOL:tmas;
     k,l,m,j,q,p,x:integer;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
randomize;
repeat
write('Введите k от 2 до ',kmax,' k=');
readln(k);
until k in [2..kmax];
repeat
write('Введите l от 2 до ',lmax,' l=');
readln(l);
until l in [2..lmax];
repeat
write('Введите число для проверки кратности элементов матрицы от 2 до 5 m=');
readln(m);
until m in [2..5];
for j:=1 to k do
 begin
  for q:=1 to l do
  F[j,q]:=random(50);
  KOL[j]:=Quantity(F[j],l,m);
 end;
writeln(' Матрица F');
writeln(' ':l*3+2,'Кол. кратных');
for j:=1 to k do
 begin
  for q:=1 to l do
  write(F[j,q]:3);
  KOL[j]:=Quantity(F[j],l,m);
  writeln(KOL[j]:6);
 end;
for j:=1 to k-1 do
for q:=j+1 to k do
if KOL[j]>KOL[q] then
 begin
   x:=KOL[j];
   KOL[j]:=KOl[q];
   KOL[q]:=x;
   for p:=1 to l do
    begin
     x:=F[j,p];
     F[j,p]:=F[q,p];
     F[q,p]:=x;
    end;
  end;
writeln('Перестановка строк по возрастанию количества кратных чисел');
writeln(' ':l*3+2,'Кол. кратных');
for j:=1 to k do
 begin
  for q:=1 to l do
  write(F[j,q]:3);
  KOL[j]:=Quantity(F[j],l,m);
  writeln(KOL[j]:6);
 end;
readln;
end.