array dalam function delphi

hey kawan...
lanjut lagi ni... tentang pemrograman delphi. kali ini kita akan mencoba membuat sebuah program yang menerapkan array dalam suatu function ...
 gak usah lama-lama ,langsung saja ini dia contohnya
di terapkan untuk program mencari luas dan keliling segitiga siku-siku.
cekidot...
.......................................................................................................................................................................
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type z = array [1..2] of integer;
type s = array [1..2] of real;

  var
      s1:s;  i:z;

function luas (alas,tinggi:integer):real;
begin
  result := 1/2*alas*tinggi;
end;

function Keliling (alas,tinggi:integer):real;
begin
  result := sqrt(sqr(alas)+sqr(tinggi))+alas+tinggi;
end;

function segi3 (masuk :z):s;
begin
     s1[1] := luas(masuk[1],masuk[2]);
     s1[2] := keliling(masuk[1],masuk[2]);
     result:= s1;
end;

begin
  i[1]:=3;
  i[2]:=4;
  s1:=segi3(i);

  writeln ('luas segitiga =',s1[1]:5:1);
  writeln ('keliling segitiga=',s1[2]:5:1);
  readln;
end.
...................................................................................................................................................................
oke . kalau ada yang mau ditanyakan ,langsung saja tulis koment di bawah zow...
semoga bermanfaat...