Input should be similar to this :

for i:=1 to n do

  read(ch);
  If eoln then readln;