С помощью подпрограммы подсчитать количество делящихся на 7 чисел для отрезка [11,81] и делящихся на 13 для отрезка [100,200] — Pascal(Паскаль)

var count,count2:integer;
procedure div7(n:integer);
begin
 if n mod 7 = 0 then
   inc(count);
end;
procedure div13(n:integer);
begin
  if n mod 13 = 0 then
    inc(count2);
end;
var
 n,i:integer;
begin
 for i:= 11 to 81 do
 div7(i);
 for i:= 100 to 200 do
 div13(i);
 writeln('na 7 delitsja ',count,' chisel');
 writeln('na 13 delitsja ',count2,' chisel');
end.

function CountNum: integer;
var
  c,i: integer;
begin
  c := 0;
  for i := 11 to 81 do
    if i mod 7 = 0 then
      Inc(c);
  for i := 100 to 200 do
    if i mod 13 = 0 then
      Inc(c);
  CountNum := c
end;
 
begin
  WriteLn('Result: ', CountNum);
  ReadLn
end.