Фибоначчи

procedure TForm1.Button5Click(Sender: TObject);
var
  f: file of longint;
  fsize, i1, i2: longint;
begin
  // Дописать в конец файла очередное число Фибоначчи.
  // Открыть файл
  System.Assign(f, 'fib.dat');
  try
    Reset(f);
  except
    // Если его нет, то создать
    Rewrite(f);
  end;
  fsize := System.FileSize(f);
  if fsize < 2 then begin
    // Если в файле меньше 2 чисел, то очистить файл
    Rewrite(f);
    i1 := 0;
    i2 := 1;
    // и записать в него первые 2 числа из ряда Фибоначчи
    Write(f, i1, i2);
    System.CloseFile(f);
    exit;
  end;
  // Если больше 2 чисел, то читаем 2 последних числа
  System.Seek(f, fsize - 2);
  Read(f, i1, i2);
  // Считаем следующий элемент
  i1 := i1 + i2;
  // И записываем его в файл. При этом, указатель стоит уже в конце файла
  Write(f, i1);
  CloseFile(f);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  f: file of integer;
  fsize, i1, i2: integer;
begin
  // Дописать в конец файла очередное число Фибоначчи.
  // Открыть файл
  Assignfile(f, 'fib.txt');
    Rewrite(f);
  fsize := FileSize(f);
    i1 := 1;
    i2 := 1;
    // и записать в него первые 2 числа из ряда Фибоначчи
    Write(f, i1, i2);
CloseFile(f);
  // Если больше 2 чисел, то читаем 2 последних числа
Seek(f, fsize - 2);
  Read(f, i1, i2);
  // Считаем следующий элемент
  i1 := i1 + i2;
  // И записываем его в файл. При этом, указатель стоит уже в конце файла
  Write(f, i1);
  CloseFile(f);
end;

  Assignfile(f, 'fib.txt');
  Rewrite(f);