program Word;
uses crt;
   var
      letter: string;
   begin
      clrscr;
      Repeat
         writeln('What is your name? ');
         readln(letter);
         if (letter >=UPCASE('a')) AND (letter <=UPCASE('z')) then
         begin
            writeln('Correct Answer ');
         end
         else
         begin
            writeln('Word needs to be entered');
            end;
      Until (letter >=UPCASE('a')) AND (letter <=UPCASE('z'));
      {-------------------Printing Results------------------}
      writeln('The name is ', letter);
      readln;
   end.