Определить, образуют ли данные числа ряд Фибоначчи

(*
 Определить, образуют ли данные числа
 ряд Фиббоначчи (1,2,3,5,8,13,21,33,54)
 Результат отправляет в result.txt
*)
 
var
k1,k2,n: integer;
x: real;
i: integer;
 
t: text;
 
begin
 if ParamCount = 0 then
 begin
  writeln('Нет данных для вычисления');
  readln;
  exit;
end;
 
n:= ParamCount;
for i:=1 to n do
begin
end
end.

procedure FibFalse;
const
  msg = 'Данная последовательнось чисел не является частью последовательности Фибоначчи.';
var
  F : Text;
begin
  WriteLn(msg); Rewrite(F, 'result.txt'); WriteLn(F, msg); Close(F); Halt;
end;
 
procedure FibTrue;
const
  msg = 'Данная последовательнось чисел является частью последовательности Фибоначчи.';
var
  F : Text;
begin
  WriteLn(msg); Rewrite(F, 'result.txt'); WriteLn(F, msg); Close(F); Halt;
end;
 
var
  A : array of Integer; 
  n, F, F_ : Integer;
begin
  SetLength(A, 0);
  
  { Прочтём все параметры в массив }
  try
    for n := 1 to ParamCount do
      begin
        SetLength(A, A.Length+1);
        A[A.Length-1] := ParamStr(n).ToInteger;
      end;
  except
    FibFalse;
  end;
  
  { Если одно число - это не последовательность. Нужно хотя бы 2 ;-) }
  if A.Length < 2 then FibFalse;
  
  { Найдём число F - Фибоначчи, которое больше или равно первому данному числу }
  F := 1; F_ := 1; while A[0] > F do begin F += F_; F_ := F - F_; end;
  
  if F > A[0] then FibFalse;
  
  { Последовательно проверим все остальные числа }
  for n := 1 to A.Length-1 do
    begin
      F += F_; F_ := F - F_; /// Следующее число Фибоначчи
      if A[n] <> F then FibFalse;
    end;
    
  FibTrue;
end.

uses System.Io;
var
  i:integer;
  a:array of integer;
  r:boolean;
procedure writeresult(s:string);
begin  
    &File.WriteAllText('result.txt',s);
    writeln(s);
end;
begin
  if ParamCount>0 then begin
    SetLength(a,ParamCount);
    for i:=0 to ParamCount-1 do a[i]:=strtoint(ParamStr(i+1));
    r:=true;
    if (a[0]<>1) or  (a[1]<>2) then r:=false;
    for i:=2 to ParamCount-1 do if a[i]<>a[i-2]+a[i-1] then r:=false;
    if r then writeresult('Является') else writeln('Не является');
  end else writeresult('Нет данных для вычисления')
end.

uses System.Io;
var
  i,f1,f2,f3:integer;
  a:array of integer;
  r:boolean;
procedure writeresult(s:string);
begin  
    &File.WriteAllText('result.txt',s);
    writeln(s);
end;
begin
  if ParamCount>0 then begin
    SetLength(a,ParamCount);
    for i:=0 to ParamCount-1 do a[i]:=strtoint(ParamStr(i+1));
    r:=true;
    f1:=0;f2:=1;
    while a[1]>f1 do begin f3:=f2+f1; f2:=f1; f1:=f3; end;
    if (a[0]<>f2) or  (a[1]<>f1) then r:=false;
    for i:=2 to ParamCount-1 do if a[i]<>a[i-2]+a[i-1] then r:=false;
    if r then writeresult('Является') else writeln('Не является');
  end else writeresult('Нет данных для вычисления')
end.