Народ чет неполучается написать программу

[Razdolbam]

Дан файл целых чисел F1. Среди каждых трех компонент файла F1 удалить максимальное, а два других поменять местами.

В универе пропустил эту тему по болезни а на лабе терь незнаю что писать, помогите пожалуйста.

[Z1000000]

Читай из файла в массив и работай с ним. С массивом работать умеешь?

{Читает данные из файла в массив}
Program lab01;
var
 F : file of Integer;
 a : array[0..99] of Integer;
 i : Integer;
begin
Assign(F,'1.dat');
Reset(F);
i := -1;
while ( not eof(F) ) do
 begin
 i := i + 1;
 Read(F,a[i]);
 end;
write ('Прочитано из файла ',i,' чисел');
end.