Нетипизированный файл. Нужно оптимизировать

[torah]

В задании требуется поменять местами в файле 2 блока размером N байт, начинающийся с m1 и m2 байта. Если блоки пересекаются, выдать сообщение об ошибке.

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
var
  filename: string;
  f: file;
  m1, m2, n: integer;
  buf1, buf2: integer;
  i: integer;
begin
write('Enter file name: '); readln(fileName);
write('Enter begin of first block: '); readln(m1);
write('Enter begin of second block: '); readln(m2);
write('Enter size of blocks (bytes): '); readln(n);
if (abs(m1 - m2) < n) then begin writeln('Blocks are crossing.'); readln; exit; end;
assign(f, fileName);
reset(f, 1);
for i:= 0 to n - 1 do
begin
  seek(f, m1 + i);
  BlockRead(f, buf1, 1);

  seek(f, m2 + i);
  BlockRead(f, buf2, 1);

  seek(f, m2 + i);
  BlockWrite(f, buf1, 1);

  seek(f, m1 + i);
  BlockWrite(f, buf2, 1);

end;
close(f);
writeln('Press any key to continue....'); readln;
end.

оптимизация заключается в том, что мне нужно заменить цикл,

for i:= 0 to n - 1 do
begin
  seek(f, m1 + i);
  BlockRead(f, buf1, 1);

  seek(f, m2 + i);
  BlockRead(f, buf2, 1);

  seek(f, m2 + i);
  BlockWrite(f, buf1, 1);

  seek(f, m1 + i);
  BlockWrite(f, buf2, 1);

точнее сделать код без нее. Мне посоветовали задать буфер через массив. Помогите доделать программу, пожалуйста.

[torah]

подскажите, пожалуйста.

[Serge_Bliznykov]

примерно так:

var 
  Buf1, Buf2 : array[1..N] of byte;
.....
  if (m2=m1) then begin WriteLn('Блоки совпадают. Выходим..');
    Exit;
  end;
  if ((m2>m1) and (m2<(m1+N))) 
     or
     ((m1>m2) and (m1<(m2+N)))  then begin 
        WriteLn('Блоки пересекаются. Выходим..');
    Exit;
  end;

  seek(f, m1)
  BlockRead(f, buf1, N);
  seek(f, m2)
  BlockRead(f, buf2, N);
  seek(f, m1)
  BlockWrite(f, buf2, N);
  seek(f, m2)
  BlockWrite(f, buf1, N);

[torah]

В принципе, считает, как и раньше. Если данная оптимизация будет удачной, буду очень рада.
Спасибо, что хоть кто-то ответил на мою просьбу!