Frase composta por palavras independentes (v. 1.0.0)

{ paulogp }
Program Peda_10 (Input, Output);

Uses
    WinCrt;

Var
    Num_Palavras, Contador: Integer;
    Palavra: String[15];
    Frase: String;
    Fim: Char;

Begin
    Repeat
        ClrScr;
        WriteLn('Programa: Frase composta por palavras independentes.');
        WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
        Repeat
            WriteLn;
            Write('Numero de palavras da frase: ');
            ReadLn(Num_Palavras);
        Until (Num_Palavras > 0);
        Frase:= '';
        For Contador:= 1 to Num_Palavras do
        Begin
            WriteLn;
            Write(Contador,' palavra (max. 15 letras): ');
            ReadLn(Palavra);
            Frase:= Frase + Palavra;
            If Contador <> Num_Palavras then Frase:= Frase + ' ';
        End;
        WriteLn;
        WriteLn(Frase + '.');
        WriteLn;
        WriteLn;
        Write('Repetir programa (S/N)? ');
        Fim:=ReadKey;
    Until UpCase(Fim)='N';
    DoneWinCrt;
End.