tarea sobre DEV pascal

[Infinte]

Consulta ..hola a todos...no sé que es lo que tiene mal esta estructura

Procedure Fact
x, fac : integer;
begin
  WriteLn('Digite el numero del que desea saber su factorial : ') ;
  ReadLn(x) ;
  if x <=0 then
    begin
     fac:=0
    end
  else
    begin
      fac:= x * fac(n-1); ****** me dice que el error está ahí****
      WriteLn('El factorial es:', fac)
    end;
  writeln(' ')
end.