Дан файл f, компоненты которого являются действительными числами. Найти наибольшее из значений модулей компонент с нечетными номерами.

Program z472v;
Uses crt;
Var f:file of integer;
v,k,max:integer;
Begin
clrscr;
Assign(f,'execute.dat');
Reset(f);
max:=0;

while not eof(f) do
begin
read(f,v);
writeln(v:0);
k:=k+1;
if (k mod 2<>0) and (abs(v)>max) then max:=abs(v);
end;
close(f);
writeln('naibolshii modul komponent s necetnim nomerom - ',max:0);
readln;
end.

Содержание файла execute.dat:

2
-3
12
44
-21
23
13
-15
8