Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement