Pascal(Программирование)[Решено]

Здравствуйте. Вышло так что знакомых программистов нет, решил напистаь сюда.
Проблема в следующем: команда read(s) (где s типа string) в цикле(и не только в цикле: при условиях) работать не хочет. Вот пример простой програмки:

uses crt;
var
 s:string;
begin
 Writeln('Введите строку'); read(s);
 writeln(s);
 readkey;
end;

Все в порядке, все работает. Усложним условием:

uses crt;
var
 i:integer;
 s:string;
begin
 Writeln('Введите 2');read(i);
 if i=2 then
  begin
   Writeln('Введите строку'); read(s);
   writeln(s);
   readkey;
  end;
end.

В цикле команда read(s) игнорируеться. Если кто ни будь разбираеться помогите с вопросом: почему так происходит и как исправить?.