Проблема с case и read(string).

[cdtj]

Всем доброго вечера,
Столкнулся с проблемой такого типа:

program one;
uses crt;
var i:word;
    str:string;
begin
clrscr;
read(i);
case i of
     1:
     begin
     read(str);
     writeln('!!!');
     end;
end;
end.

программа игнорирует поле read(str).
Как это можно обойти, кто подскажет?

[anGeee]

Переменную i считывайте с помошью ReadLn, а не Read.

[cdtj]

anGeee
спасибо помогло...
а то пришлось прибегнуть к шаманскому методу

...
readln(str);
readln(str);
...

так тоже работает, причем запрос идет 1 раз