Read（）不起作用

Question

程序读取（s2）不起作用

var
  s1, s2: string;
  h1, m1: integer;
begin
  read(s1);
  h1 := Strtoint(s1[1:3]);
  m1 := StrtoInt(s1[4:6]);
  read(s2);
  write(h1, m1);
end.

编译看起来像这样

12:25
1225

看起来应该是这样的

12:25
(asking s2)
1225