Снова про числа Фибоначчи на Pascal

[Alteran]

Здравствуйте.
Прошу помощи в решении задачи: "Вывести ЛЮБОЕ, даже самое большое, число Фибоначчи. При решении использовать символьную арифметику."
Я сам просто не представляю, как это сделать.

[Mad_Cat]

Я сам просто не представляю, как это сделать.

Реализуй длинную арифметику в частности сложение для положительных чисел. Кстати в числе фибоначчи №50000 10449 цифр

[Mad_Cat]

Вывести ЛЮБОЕ, даже самое большое, число Фибоначчи. При решении использовать символьную арифметику

var
  kk:Integer;
  f:TextFile;
  s:string;
  Fa:array of string;
  ncf:integer;
  (*функция нахождения максимума из 2 чисел*)
function max(a,b:integer):Integer;
  begin
    if a>b then result:=a
    else result:=b;
  end;
  (*перевод символа в цифру*)
function ChToCi(a:char):Integer;
  begin
    Result:=ord(a)-ord('0');
  end;
(*перевод цифры в символ*)
function CiToCh(a:byte):char;
  begin
    Result:=chr(a+ord('0'));
  end;
 (*суммирование двух строк столбиком*)
function SUM(a,b:string):string;
var
  um,LenMax:Integer;
  n,LenA,LenB:Integer;
  buf:string;
  pr:integer;
begin
  LenA:=Length(a);LenB:=Length(b);LenMax:=max(LenA,LenB);
  um:=0;buf:=''; n:=LenMax;
  for pr := 1 to LenMax - LenA do
    a:='0'+a;
  for pr := 1 to LenMax - LenB do
    b:='0'+b;
  while n>=1 do begin
    um:=ChToCi(a[n])+ ChToCi(b[n])+(um mod 10);
    buf:=CiToCh(um mod 10)+buf;
    Dec(n);
    um:=um div 10;
  end;
  if um<>0 then buf:= CiToCh(um)+buf;
  result:=buf;
end;
(*получение n-го числа фибоначчи*)
function Fib_dl(n:integer):string;
begin
  if n=1 then Fa[n]:='0'
  else if n<=3 then Fa[n]:='1'
  else
    Fa[n]:=SUM(Fa[n-1],fa[n-2]);
  result:=Fa[n];
end;
(*====Основная программа======*)
begin
  writeln('input number of fibonacci quantity');
  readln(ncf);
  Writeln('=============================================');
  WRiteln('Begin...');
  Assign(f,'c:\fib1.txt');
  Writeln('calc...#',ncf);
  Rewrite(f);
  SetLength(Fa,ncf);
  for kk := 1 to ncf do
    begin
      s:=Fib_dl(kk);
      writeln(f,'#',kk,'==>',s);
    end;
  Close(f);
  Writeln('End. Result in c:\fib1.txt');
  writeln('In #',ncf,'==>',length(s),' digits');
  Writeln('=============================================');
  Readln;
end.

[Kingdom_Reborn]

uses
  Crt;

const
  Nmax   = 1001;

type
  TNumber = Array[0..Nmax] of Integer;

function max(const A, B: Integer): Integer;
begin
  if A > B then Max := A else Max := B;
end;

procedure One(var X: TNumber);
begin
  FillChar(X, SizeOf(X), 0);
  X[0] := 1;
  X[1] := 1;
end;

procedure Print(X: TNumber);
var
  i: Integer;
begin
  for i := X[0] downto 1 do
    Write(X[i]);
  WriteLn;
end;

procedure Add(A, B: TNumber; var C: TNumber);
var
  i, d: Integer;
begin
  FillChar(C, SizeOf(C), 0);
  d := 0;
  for i := 1 to max(A[0], B[0]) do begin
    Inc(d, A[i] + B[i]);
    C[i] := d mod 10;
    d := d div 10;
  end;
  C[0] := max(A[0], B[0]);
  if d > 0 then begin
    Inc(C[0]);
    C[C[0]] := d;
  end;
end;

var
  num, N: Integer;
  A, B, C: TNumber;
begin
  ClrScr;
  Read(N);
  One(A);
  One(B);
  num := 2;
  while num < N do begin
    Add(A, B, C);
    Inc(num);
    A := B;
    B := C;
  end;
  if N <= 2 then One(C);
  Print(C);
  ReadKey;
end.