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

var 
S:String; 
F_in: File of Real; 
F_out: File of Integer; 
El2,El1,El:Real; 
i,c:integer; 
begin 
Write('File: '); 
Readln(S); 
Assign(F_in,S); 
Reset(F_in); 
Write('File_out: '); 
Readln(S); 
Assign(F_out,S); 
ReWrite(F_out); 
Read(F_in,El1); 
Read(F_in,El); 
El2:=El1; 
I:=1; 
if (El1>El) then Write(F_out,i); 
while (not eof(F_in)) do 
begin 
El2:=El1; 
El1:=El; 
Read(F_in,El); 
inc(i); 
if (El<El1) and (El1>El2) then Write(F_out,i); 
end; 
if El1<El then Write(F_out,i+1); 
Close(F_in); 
reset (F_out); 
while not eof (F_out) do 
begin 
read(F_out, c); 
writeln (c); 
end; 
Close(F_out); 
end.

var f: File of Real;
    g: File of Integer;
    a,b,c:Real;
    i:integer;
    s:string;
begin
Write('Введите имя исходного файла: ');
Readln(S);
randomize;
Assign(f,s);
Rewrite(f);
writeln('Содержание исходного файла');
for i:=1 to 20 do
 begin
  a:=9*random;
  write(f,a);
  write(a:5:2);
 end;
writeln;
Write('Введите имя итогового файла: ');
Readln(S);
Assign(g,s);
ReWrite(g);
reset(f);
for i:=1 to filesize(f)-2 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) then write(g,i+1);//номер на 1 больше индекса
 end;
close(f);
reset(g);
if filesize(g)=0 then writeln('Нет локальных максимумов')
else
 begin
  writeln('Номера локальных максимумов');
  while not eof(g) do
   begin
    read(g,i);
    write(i,' ');
   end;
 end;
close(g);
end.