Составить программу, подсчитывающую число сочетаний без повторения из N элементов по К элементов- Pascal(Паскаль)

Число сочетаний без повторения считается по формуле: Cnk=n!/k!(n-k)! Обозначим:
n, k- переменные для хранения введенных чисел;
С - переменная для хранения результата. Чтобы подсчитать количество сочетаний без повторения, необходимо вычислить n!, (n-к)!, к!

uses crt;
var n,k:integer;
al,a2,a3,c:longint;
function factorial (n: integer) longint;
var i: integer;
rez:longint;
begin
  rez:=1;
  for i:=1 to n do
  rez:=rez*i;
  factorial: =rez;
end;

begin
  clrscr;
  writeln('введите n>=k ');
  readln(n,k);
  a1: =factorial (n);
  a2:=factorial (k);
  a3 :=factorial (n-k);
  c:=a1 div (a2*a3);
  writeln('c=',c, ' ' , al, ' ',a2, ' ',a3);
  readln;
end.