Работа с файломи. Игнор команды read

Среда PascalABC.NET
#1

Что тут не так? Почему не запрашивает f? Код:

var t:text;
var a,b:real;
var c,f:string;
begin
  read(c);
  assign(t,c+'.txt');
  reset(t);
  readln(t,a);
  read(t,b);
  close(t);
  read(f); //не запрашивает f.
  assign(t,f+'.txt');
  rewrite(t);
  writeln(t,a,b);
  close(t);
end.
#2

Замените первый read на readln.