ФАЙЛЫ, непонятно.... Опции

[Танкистка]

Я неочень хорошо поняла тему Файлы.... вообщем вотЪ такая вотЪ задачка... я там чет пыталась написать. Вообщем там наверно много неочень разумного...жду ЛЮБЫХ советов и поправок... Пасибки, кто поможет)

Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле q те компоненты файла f, которые являются четными.

const n=30;
Var f,q:text;
a:array[1..n] of integer;
i:integer;
Begin
randomize;
for i:=1 to n do
a[i]:=random(100);
Assign(f,'e:\celie.txt');
rewrite(f);
for i:=1 to n do
writeln(f,a[i]);
close(f);
reset(f);
assign(q,'e:\chetnie.txt');
rewrite(q);
while Not(Eof(f)) do
if a[i] mod 2=0 then writeln(q,a[i]);
close(f);
close(q);
Writeln('vot tak','e:\celie.txt','e:\chetnie.txt');
readln;
end.

[volvo]

Файл последовательного доступа - это практически любой файл.

Грубейшая ошибка!!!

Файл последовательного доступа - ТОЛЬКО текстовый, и никакой другой, ибо только к текстовому файлу неприменим Seek, и для того, чтобы обратиться к символу с №120, надо прочесть все 119, которые идут перед ним... Все остальные (типизированные/бестиповые) файлы имеют фиксированный размер компонента, и позволяют обращаться к любому компоненту напрямую...

P.S. Очень жаль, что приходится перепечатывать FAQ ( Файлы -> "Последовательный и примой доступ" ), да еще и в ответ на заявление админа форума