implementation
 

{$R *.dfm}
 var
   m:array[1..6] of real;
 

function max1(m:array [ 1..6] of real):real;
 var
   i,j:integer;
   k:real;
......................