Здравствуйте! Не нашёл более подходящего названия темы.
Суть проблемы:
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.
Begin
Write('Nomer spiska = ');
Read(CheckString); { <--- Здесь }
Write('Moo!');
Readln(CheckString);
End;
Спасибо за ответ и совет!
Не вижу тут ничего такого "общего" - обычная ошибка с паскалевским (а точнее даже, с turbo-паскалевским) ReadLn. Переношу из Общих Вопросов в Задачи..