Написать программу проверки количества делителей двух чисел- Pascal(Паскаль)

var
  f, b, p, i, Kn, kf: integer;

procedure KolDel(b: integer; var k: integer);
var
  i: integer;
begin
  k := 0;
  for i := 1 to b div 2 do
    if b mod i = 0 then
      k := k + 1;
end;

begin
  Writeln('Vvedite chislo dlya sravneniy ');
  Readln(b);
  Writeln('Vvedite kol-vo');
  Readln(p);
  KolDel(b, Kn);
  for i := 1 to p do
  begin
    Writeln('Vvedite ', i, '4slo');
    Readln(f);
    KolDel(f, kf);
    if Kn = kf then
      Writeln('Takoe je kol-vo deliteley')
    else
      Writeln('Ne ravno');
  end;
  Readln;

end.