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

uses crt;
var f:file of real;
    g:file of integer;
    i,k:integer;
    a,b,c:real;
begin
clrscr;
assign(f,'realfile');
rewrite(f);
assign(g,'intfile');
rewrite(g);
writeln('Введите в файл не менее 3х вещественных чисел, окончание  вода 0:');
k:=0;
repeat
readln(a);
k:=k+1;
if a<>0 then write(f,a);
until (a=0)and(k>2);
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
writeln;
close(f);
reset(f);
for i:=filesize(f)-2 downto 1 do
 begin
  seek(f,i);
  read(f,a);
  seek(f,i+1);
  read(f,b);
  seek(f,i-1);
  read(f,c);
  if((a<b)and(a<c))or((a>b)and(a>c)) then
   begin
    k:=i+1;
    write(g,k);
   end;
 end;
close(f);
writeln('Номера экстремумов в порядке убывания:');
reset(g);
if filesize(g)=0 then write('Экстремумов нет!')
else
 while not eof(g) do
  begin
   read(g,k);
   write(k,' ');
  end;
close(g);
readln
end.