Valor a ser lido e seu fatorial

{Escrever um programa que leia um numero N que indica quantos valores
 devem ser lidos a seguir. Para cada, mostre uma tabela contendo o valor
 lido e o fatorial deste valor.}

Uses CRT;
Var  QtdVal, Numero, Cont, Valor, Fat: Integer;

Begin
    Clrscr;
    Writeln('Digite a Quantidade de numeros a serem lidos: ');
    Read(QtdVal);
    For Cont := 1 To QtdVal Do
        Begin
            Writeln('Digite o ', Cont, ' numero: ');
            Read(Numero);
            Valor:= 1;
            Fat  := 1;
            While Valor <= Numero Do
                  Begin
                      Fat := Fat*Valor;
                      Valor := Valor + 1;
                  End;
            Writeln('O Fatorial de ', Numero, ' ‚: ', Fat);
        End;
    Readkey;
End.