Dephi WinApi File27pascal

[Игopь]

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

PHP код:

var
  name: string;
  stream: TFileStream;
  buf: double;
  max,min:Double;
  p_max,p_min:Integer;
begin
  Write('Enter file name: '); Readln(name);
  stream := TFileStream.Create(name, fmOpenReadWrite);
  if stream.Position < stream.size then
  begin
    p_max:=0; p_min:=0;
    stream.ReadBuffer( max, SizeOf(max) );
    min:=max;
  end
  else Exit;
  
  while stream.Position < stream.Size do
  begin
    stream.ReadBuffer( buf, SizeOf(buf) );
    if buf > max then
    begin
     max:= buf;
     p_max:=stream.Position - SizeOf(buf);
    end;
    if buf< min then
    begin
     min:= buf;
     p_min:=stream.Position - SizeOf(buf);
    end;
  end;
  stream.Seek(p_max, soBeginning );
  stream.writeBuffer(min, SizeOf(min));
  stream.Seek(p_min, soBeginning );
  stream.writeBuffer(max, SizeOf(max));
  stream.Free;
end; 


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