Frase composta por palavras independentes (v. 1.0.1)

{ paulogp }
Program Peda_11 (Input, Output);

Uses
    WinCrt;

Var
    Palavra: String[15];
    Frase: String;
    Fim: Char;

Begin
    Repeat
        ClrScr;
        WriteLn('Programa: Frase composta por palavras independentes II.');
        WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
        Repeat
            WriteLn;
            Write('Escreva a 1a palavra (max. 15 letras; "FIM" termina): ');
            ReadLn(Palavra);
        Until Palavra <> 'FIM';
        Frase:= '';
        While Palavra <> 'FIM' do
        Begin
            Frase:= Frase + Palavra;
            Write('Escreva uma palavra (max. 15 letras; "FIM" termina): ');
            ReadLn(Palavra);
            If Palavra <> 'FIM' then Frase:= Frase + ' ';
        End;
        WriteLn;
        WriteLn(Frase + '.');
        WriteLn;
        WriteLn;
        Write('Repetir programa (S/N)? ');
        Fim:=ReadKey;
    Until UpCase(Fim)='N';
    DoneWinCrt;
End.