типизированные файлы, целочисленные массивы Опции

[D-7]

Помогите Люди Добрые!
Дан файл F, элементами которого являються целочисленные массивы a0,a1,a2,a3,a4. Требуеться преобразовать каждый из массивов, заменив элементы с наибольшим значением на 0. Полученные массивы должны быть записаны в тот же самый файл F.
Исходные данные:
5 6 7 4 8
11 8 3 2 1
2 1 -5 -6 -10
-8 2 -9 -2 -1

[КМА]

 
const n=5;
type massive=array [1..n] of integer;
Var f: file of massive;
    a0, a1, a2, a3, a4: massive;

procedure createRandomMassive(Var x: massive);
Var i: byte;
Begin
     for i:=1 to n do
      x[i]:=random (199) - 100;
End;

procedure printMassive (x: massive);
Var i: byte;
Begin
     for i:=1 to n do
      write (x[i],' ');
     writeLn;
End;

function numMaxElMassive (x: massive): byte;
Var i, iMax: byte;
Begin
     iMax:=1;
     for i:=2 to n do
      if x[iMax]<x[i]
         then iMax:=i;
     numMaxElMassive:=iMax;
End;

BEGIN
     assign (f, 'C:\zadacha1.kma');
     {---------------------------------------}
     {создадим файл и занесем в него массивы}
     reWrite (f);
     createRandomMassive (a0);
     write (f, a0);
     createRandomMassive (a1);
     write (f, a1);
     createRandomMassive (a2);
     write (f, a2);
     createRandomMassive (a3);
     write (f, a3);
     createRandomMassive (a4);
     write (f, a4);
     close (f);
     {-----------------------------------------}
     {теперь начинается собвственно твоя программа, все что отделенно
      -----------------------------------------
      не считать. Это вообще отдельная программа должна быть}
      writeLn ('File before:');
      reSet (f);
      {читаем из файла массив выводим его на экран,
       находим максимальный, обнуляем}
      read (f, a0);
      printMassive (a0);
      a0[numMaxElMassive (a0)]:=0;

      read (f, a1);
      printMassive (a1);
      a1[numMaxElMassive (a1)]:=0;

      read (f, a2);
      printMassive (a2);
      a2[numMaxElMassive (a2)]:=0;

      read (f, a3);
      printMassive (a3);
      a3[numMaxElMassive (a3)]:=0;

      read (f, a4);
      printMassive (a4);
      a4[numMaxElMassive (a4)]:=0;

      writeLn ('File after:');
      {Теперь стираем все данные из файла и перезаписываем новые массивы}
      reWrite (f);

      write (f, a0);
      write (f, a1);
      write (f, a2);
      write (f, a3);
      write (f, a4);

      printMassive (a0);
      printMassive (a1);
      printMassive (a2);
      printMassive (a3);
      printMassive (a4);

      close (f);
      readLn;
END.

В общем есть идея все эти массивы забабахать в еще один большой из 4 элементов. Но условие есть условия, таковы данные.