Помогите решить задачу в Паскале

[NAt]

Помогите решить задачу в Паскале

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

 

[interacia]

program VvodInteger;
var
NameFile: String;
N: integer;
i:integer;
num, Max:integer;
F: file of integer;
temp:integer;
begin
// Ввод данных
Writeln('Введите имя файла');
Readln(NameFile);
Writeln('Введите размер файла');
Readln(N);
Writeln('Введите значения элементов файла');
  Assign(f,NameFile);
  Rewrite(f);
for i:=1 to n do
   begin
readln(temp);
Write(F,temp);
   end;
 Close(f);

Reset(f);
i:=1;
 while  not Eof(f) do
   begin
     read(f,temp);
      if i=1 then max:=temp
      else if temp>max then begin max:=temp;num:=i ; end;
   inc(i);
   end;
Seek(f,num);
Writeln('ответ: ');
 while  not Eof(f) do
   begin
     read(f,temp);
if not odd(temp)then Write(temp,' ');
   end;
close(f);
end.

Пример работы
__________________________________________________________
Введите имя файла
a.num
Введите размер файла
10
Введите значения элементов файла
0
0
10
9
8
7
6
5
4
3
ответ:
8 6 4

 

[NAt]

спасибо большое, очень помогли