function GetNewPhrase: string;
  var
    PhraseOK: boolean;
    ThisNewPhrase: string;
    numbers: integer;
  begin
    repeat

      Writeln('Key in new phrase ...(letters and any Spaces) ');
        Readln(ThisNewPhrase);
        ThisNewPhrase := uppercase(ThisNewPhrase);

        if Length(ThisNewPhrase) in [10..20] then
        begin
          PhraseOK := True;
          GetNewPhrase := ThisNewPhrase;

        end
        else
        begin
        PhraseOK := False;
          Writeln('Please enter more than 10 characters but less than 20');
        end;

           FOR numbers := 1 to length(ThisNewPhrase) DO

        begin

        REPEAT

        if ThisNewPhrase[numbers] IN ['A'..'Z', ' '] THEN else
        begin
        Writeln('The character in position ', numbers, ' is invalid!');
        Writeln('Key in new phrase ...(letters and any Spaces) ');
        Readln(ThisNewPhrase);
        Uppercase(ThisNewPhrase);
        end;

        UNTIL ThisNewPhrase[numbers] in ['A'..'Z', ' '];

        end;


    until PhraseOK = True;
  end;