Глупый вопрос по паскалю)Пояснит любой

[valis]

var f:text;
n:integer;
begin
assign(f, 'K.TXT');
while not eof(f) do begin
readln(f,n);
writeln(n);
end;
close(f);readln;
end.

Нужно вывести содержимое документа k.txt) его путь на компе c:/k.txt)) Ток почему-то эта прога не работает) Вопрос, что не так в этом кодЕ?

[puporev]

Если файл заполнен числами, они должны идти через пробел.
Читать числа read(f,n);

[eoln]

Я думаю файл открыть надо
assign(f, 'c:\K.TXT');
reset(f);
while not eof(f) do begin