Что тут не так? Почему не запрашивает 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.