filesize pascal

Ответ от Gennady[гуру]
> Дан файл целых чисел
Кем дан? Кстати, файл q.dat, если он дан, создавался случайно не блокнотом?
Чтобы иметь файл целых его надо создать примерно так
....
Assign (f,'q.dat');
Rewrite (f);
for i:=1 to n do Write(f, I);
Close(f);
....
Правда, у такого файла все числа будут отличаться от последнего.
Gennady
(51234)
Т. е. заполнял примерно так? Читался ввод с консоли и записывался в файл?
for i:=1 to n do begin
ReadLn (x);
Write (f, x);
end;
Тогда очень странно, что указатель не устанавливается на последний компонент.