Readln(CheckString) не исполняется. Опции

[CognitivusLombardus]

Здравствуйте! Не нашёл более подходящего названия темы.
Суть проблемы:

 
Program Str1;
Uses Crt;
Var 
CheckString: String;
Base: array[1..128,1..128] of Integer;
GlobalKey, Error, Tempo: Integer;

Begin
Repeat

Repeat
Clrscr;
GlobalKey:=999;
Writeln('.------------------------------------------.');
Writeln('| 0: Clear screen                          |');
Writeln('| 1: Pokazatj spisok                         |');
Writeln('| 2: Pokazatj element                      |');
Writeln('| 10: quit                                 |');
Writeln('.------------------------------------------.');
Readln(CheckString);
Val(CheckString, GlobalKey, Error);
Until Error=0;


Case GlobalKey of

1: 
Begin
Write('Nomer spiska = ');
Read(CheckString);
Write('Moo!');
Readln(CheckString);
End;

End;


Until GlobalKey=10;
End.

При выборе 1, мы переходим в меню ввода номера списка, вводим, и дальше должна появиться надпись 'Moo!' и ждать ввода CheckString - такого не происходит. Где ошибка?

Сообщение отредактировано: CognitivusLombardus - 30.01.2010 17:57

[CognitivusLombardus]

Спасибо за ответ и совет!