Заданы два массива. Проверить, что максимальный элемент массива A больше максимального элемента массива B

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='Массив А: ';
label2.Caption:='Массив B: ';
label3.Caption:='Максимальный элемент массива А: ';
label4.Caption:='Максимальный элемент массива B: ';
label5.Caption:='Значение переменной S: ';
label6.Caption:='Cумма элементов массива А:';
label7.Caption:='Cумма элементов массива B:';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:='Массив А: ';
label2.Caption:='Массив B: ';
label3.Caption:='Максимальный элемент массива А: ';
label4.Caption:='Максимальный элемент массива B: ';
label5.Caption:='Значение переменной S: ';
.....
end;

const a:mass=(-5.2,8.1,1.3,8.25,13.9,4.5);
      b:mass=(6.4,3.1,8.12,7.9,8.0,3.5);

type
 
     mass=array[1..6] of real;
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
 
    Form1: TForm1;
    i,s:integer;
const a:mass=(-5.2,8.1,1.3,8.25);
      b:mass=(6.4,3.1,8.12,7.9,8.0,3.5);
implementation
 
{$R *.dfm}
function sum(a:mass):real;
begin
result:=0;
for i:=1 to 6 do
result:= a[i]+result
end;
 
function max(a:mass):real;
begin
result:=a[1];
for i:=2 to 6 do
if a[i]>result then result:=a[i];
end;
procedure TForm1.Button1Click(Sender: TObject);
 
begin
label1.Caption:='Массив А: ';
label2.Caption:='Массив B: ';
label3.Caption:='Максимальный элемент массива А: ';
label4.Caption:='Максимальный элемент массива B: ';
label5.Caption:='Значение переменной S: ';
for i:=1 to 6 do
label1.Caption:=label1.Caption+format('%7.2f',[a[i]]);
for i:=1 to 6 do
label2.Caption:=label2.Caption+format('%7.2f',[b[i]]);
 label3.Caption:=label3.Caption+format('%7.2f',[max(a)]);
 label4.Caption:=label4.Caption+format('%7.2f',[max(b)]);
 if max(a)>max(b) then s:=-1
 else if max(a)=max(b) then s:=0
                         else s:=1;
 label5.Caption:=label5.Caption+inttostr(s);
 label6.Caption:=label6.Caption+format('%7.2f',[sum(a)]);
 label7.Caption:=label7.Caption+format('%7.2f',[sum(b)]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='Массив А: ';
label2.Caption:='Массив B: ';
label3.Caption:='Максимальный элемент массива А: ';
label4.Caption:='Максимальный элемент массива B: ';
label5.Caption:='Значение переменной S: ';
end;
 
end.