Вычисление факториала

f := factorial(k);

procedure TForm1.Button1Click(Sender: TObject);
var
k:integer; // число, факториал которого надо вычислить
f:integer; // значение факториала числа k
begin
k := StrToInt(Edit1.Text);
f := factorial(k);
label2.caption:='Факториал числа '+Edit1.Text+ ' равен '+IntToStr(f);
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
function Factorial(i:integer) : longint;
var r,t:integer;
begin
r:=i;
for t:=1 to i do
r := r*t;
Factorial:=r;
end;
var i:Integer;
  begin
  for i:=1 to 10 do
label2.caption:='Факториал числа '+Edit1.Text+ ' равен '+IntToStr(i);
end;
end.

 IntToStr(Factorial(i)

label2.caption := 'Факториал числа ' + IntToStr(i)+' равен ' + IntToStr(Factorial(i));

procedure TForm1.Button1Click(Sender: TObject);
function Factorial(i:integer) : longint;
var
  r,t:integer;
begin
  r:=i;
  for t:=1 to i do
    r := r*t;
  Factorial:=r;
end;
 
var
  i:Integer;
begin
  for i:=1 to 10 do
    label2.caption := 'Факториал числа ' + IntToStr(i)+' равен ' + IntToStr(Factorial(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
function Factorial(n: Integer): Longint;
const
  m: Integer = 1;
  r: Longint = 1;
var i : Integer;
begin
  if n<m then begin
    m:=1; r:=1;
  end;
  for i:=m+1 to n do r:=r*i;
  m:=n; factorial:=r;
end;
 
var
  i:Integer;
begin
    label1.caption := 'Факториал числа ' + Edit1.Text+' равен ' + IntToStr(Factorial(StrToInt(Edit1.Text)));
end;

  m:=1;
    r:=1;

[Error] Unit1.pas(38): Left side cannot be assigned to
[Error] Unit1.pas(39): Left side cannot be assigned to
[Error] Unit1.pas(41): Left side cannot be assigned to
[Error] Unit1.pas(42): Left side cannot be assigned to
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

procedure TForm1.Button1Click(Sender: TObject);
function Factorial(n: Integer): Longint;
var
  i,m : Integer;
  r: Longint;
begin
  m:=1; r:=1;
  if n<m then begin
    m:=1; r:=1;
  end;
  for i:=m+1 to n do r:=r*i;
  m:=n; factorial:=r;
end;