Технический форум - Помогите решить задачу в Паскале

Код:

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