Мне нужно написать программу калькулятор с функцией нахождения факториала числа

Program fact;

uses crt;

var n, i, s:integer;

beginS:=1;

write ('Введите число - ') ;

readln (n) ;

If n<=0 then

write ('Ваше число либо отрицательное, либо равно нулю. Факториал 0!=1')

else begin

for i:=1 to n do

S:=s*i;

write ('Факториал Вашего числа равен - ', s) ;

end;

end.