Работа с типизированным файлом на Паскале

[qwertytol]

Приветствую всех. Помогите пожалусто срочно с задачкой:
Описать процедуру InvertIntFile(Name), меняющую порядок следования элементов файла целого типа с именем Name на противоположный. Если файл не существует или содержит менее двух элементов, то процедура не выполняет никаких действий. Обработать с помощью этой процедуры три файла с данными именами.
ps Оч нужно до завтра
Heeelp