нахождение наибольшего элемента массива через функцию

Нужно, чтобы в Edit1 написал массив, а в Edit2 вывел из этого массива наибольшее число
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; Edit1: TEdit;

implementation

{$R *.dfm}

function factor(i:integer):integer;
begin
if i=1 then factor:=1 else
factor:=i*factor(i-1)
end;

function fib(i:integer):integer;
begin
if i<=2 then fib:=1 else
fib:=fib(i-1)+fib(i-2)
end;

function max_num(i:integer):integer;
var
ar:array[1..20] of integer;
max_num:integer;
max_index:integer;
begin
randomize;
Edit1.Clear;
for i:=1 to 20 do begin
ar:=random(100);
Edit1.Text:=Edit1.Text+' '+inttostr(ar);
end;
max_index:=1;
max_num:=ar[1];
for i:=2 to 20 do begin
if ar>max_num then begin
max_index:=i;
max_num:=ar;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=strtoint(Edit1.Text);
edit2.Text:=inttostr(factor(n))
end;

procedure TForm1.Button2Click(Sender: TObject);
var n:integer;
begin
n:=strtoint(Edit1.Text);
edit2.Text:=inttostr(fib(n))

end;

procedure TForm1.Button3Click(Sender: TObject);
var n:integer;
begin
n:=strtoint(Edit1.Text);
edit2.Text:=inttostr(max_num(n))
end;
end.