Функции. Массивы. Делфи7. Что не так?

[Fatalita]

program n_8_5_v;

{$APPTYPE CONSOLE}

uses
  SysUtils;
        var
     i: integer;
    A: array [1..100] of Real;
  function Factor(b:real):Real;
  begin
    A[1]:=1;
     A[i]:=A[i-1]*i;
  end;
  var
   b: real;
   n: Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('n=');
  Readln(n);
    for i:=2 to n do
    begin
    b:=Factor(b);
    end;
     for i:=1 to n do
  Writeln('b[',i,']=',b:10:2);
 Readln;
end.

Я ничего не понимаю. Помогите найти ошибку.

[Hacker19_90]

вы может задание хоть напишите
и
в чём суть ошибки

[BDA]

+1 к вопросам Hacker19_90

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i, n: integer;
  A: array[1..100] of Real;

procedure Factor(i: integer);
begin
  A[i] := A[i - 1] * i;
end;

begin
  write('n=');
  Readln(n);
  if n > 100 then
    n := 100;
  if n < 1 then
    n := 1;
  a[1] := 1;
  for i := 2 to n do
  begin
    Factor(i);
  end;
  for i := 1 to n do
    Writeln(i, '!= ', a[i]:0:0);
  Readln;
end.

Но, конечно же, уже факториалы 24! и далее считает не точно.