создание собственной функции

uses crt;
var
  a: integer;
  n: integer;
  sch: integer;
begin
//------------------------------------------------------------------------------
while not((n>=1) and (n<=4000)) do
  begin
    gotoxy(1,1);
    clreol;
    write('Введите количество членов(от 1 до 4000):');
    readln(n);
  end;
//------------------------------------------------------------------------------
a:=1;
sch:=0;
repeat
  if ((1=a mod 7) or (2=a mod 7) or (5=a mod 7)) then
    begin
      write(a:5);
      inc(sch);
    end;
  inc(a);
until a>n;
//------------------------------------------------------------------------------
writeln('');
write('Количество членов:',sch);
//------------------------------------------------------------------------------
end.

const
 n = 4000;
type
 TArr = array[1..n] of integer;
var
 arr: array[1..n] of integer;
 i, m: integer;
 
function Kolvo(m: integer): integer;
var
 i, cnt: integer;
begin
 cnt:=0;
  for i:=1 to m do
   if (arr[i] mod 7 = 1) and (arr[i] mod 7 = 2) and (arr[i] mod 7 = 5) then
    inc(cnt);
 writeln('Кол-во элементов: ');
 Kolvo:=cnt;
end;
 
begin
 readln(m);
  if m <= n then
   for i:=1 to m do
    begin
     arr[i]:=random(50)+1;
     write(arr[i], ' ');
    end;
 writeln;
 writeln(Kolvo(m));
end.