Help - Работа с файлами Опции

[ursus]

Помогите решить!!!!!!!!!!!, please!!!!
Для зачета 1 осталась:
Число компонент файла f, компонентами которого являются целые числа кратно 10. Преписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы вначале шли отрицательные числа десятки, а за ними - неотрицательные

[Unknown]

Всем доброго времени суток!
У меня похожее задание:
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые являются четными.
Но я чего-то вообще не догоняю, как работать с файлами...
Мне всю прогу не надо, а хотя бы первую часть, т.е. заполнить файл f, даже не рандомно, а вручную, чтоб разобраться. Вот, что пишу я:

Код

var f:file of integer; a,i:integer;
begin
assign(f,'file.dat');
rewrite(f);
repeat
write(f,a);
until eof(f)
end.

По идее, юзер вводит последовательность целых чисел до тех пор, пока не будет нажата комбинация Ctrl+Z и Enter, и вся эта последовательность сохраняется в файле с именем file.dat. Все верно? Или я что-то не так понял? Не работает...
Имеет ли значение, работаю я в Турбо или в Борланд Паскале?