Вычислить число размещений из n по m

//Функция возвращает факториал числа n
function fact(const n: byte): real;
var
  i: byte;
begin
  result := 1;
  for i := 0 to n - 1 do 
    result := result * (n - i);
end;
 
var
  n, m: byte;
 
begin
  writeln('n должно быть больше m ', '(n > m)');
  write('n = '); read(n);
  write('m = '); read(m);
  writeln('Результат: ', fact(n) / fact(n - m));
  readln();
end.

//Функция вычисляет площадь треугольника по формуле герона
function SquareTriangle(A, B, C: real): real;
var
  P: real;
begin
  P := (A + B + C) / 2;
  result := SQRT(P * (P - A) * (P - B) * (P - C))
end;
 
var
  A, B, C, S, P1, S1, X: real;
 
begin
  WRITELN('ПЛОЩАДЬ ТРЕУГОЛЬНИКА 1.');
  WRITE('ВВЕДИТЕ РАЗМЕРЫ ТРЕХ СТОРОН: ');
  READLN(A, B, C);
  if (A <= 0) OR (B <= 0) OR (C <= 0)
    THEN WRITELN('ЕСТЬ ОТРИЦАТЕЛЬНЫЕ РАЗМЕРЫ.')
  ELSE if (A + B <= C) OR (B + C <= A) OR (A + C <= B)
    THEN WRITELN('РАЗМЕРЫ НЕ ТРЕУГОЛЬНИКА.')
  ELSE S := SquareTriangle(A, B, C);
  WRITELN('ПЛОЩАДЬ РАВНА: ', S:0:2);
  WRITELN('ПЛОЩАДЬ ТРЕУГОЛЬНИКА 2.');
  WRITE('ВВЕДИТЕ РАЗМЕРЫ ТРЕХ СТОРОН: ');
  READLN(A, B, C);
  if (A <= 0) OR (B <= 0) OR (C <= 0)
    THEN WRITELN('ЕСТЬ ОТРИЦАТЕЛЬНЫЕ РАЗМЕРЫ.')
  ELSE if (A + B <= C) OR (B + C <= A) OR (A + C <= B)
    THEN WRITELN('РАЗМЕРЫ НЕ ТРЕУГОЛЬНИКА.')
  ELSE S1 := SquareTriangle(A, B, C);
  x := (s - s1);
  WRITELN('ПЛОЩАДЬ РАВНА: ', S1:0:2);
  WRITELN('Разница прощади: ', x:0:2)
end.