I have got a question which come together with my answer but I found that it does not too match with the question. Can you help me to make it changes?
Question:
A letter of the alphabet is to be input from the keyboard, and a message output as to whether it is upper or lowercase. The user is allowed to repeatedly input letters if they wish. Data entry is terminated by a non-alphabetical character.
My answer:
program WhileDoDemo;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
I: char;
begin
while (I<> 'q') and (I<>'Q') Do
begin
write('Enter a value:');
readln(I);
end;
writeln('Press Enter to exit program');
readln{To keep the window from closing until you press Enter};
end{WhileDoDemo}.
May I need to change it? Can you give me some ideas?