Массив

[1gorb]

Помогите пожалуйста дописать програму!
Процентов 60-75% уже есть, осталось самую малость.
Буду очень признателен.

Program TTT;
type mas=array[1..6] of integer;
Var
 m1,m2:mas;
 i:integer;
 j:integer;
 summa:real;
 f1,f2,f3:text;

Procedure min(a:mas; n:integer; var min:real);
    Var i:integer;
    Begin
     min:=a[1];
     for i:=1 to n do
     if min>=a[i] then min:=a[i];
    End;
Procedure Sum (m1:mas; m2:mas; var s:real);
        Var amin,bmin:real; i:integer;
        Begin
        min(m1,4,amin);
        min(m2,6,bmin);
        s:=0;
        For i:=1 to 4 do
        s:=s+(sqrt(m1[i])/sqr(amin));
        For i:=1 to 6 do
        s:=s+(m2[i])/sqr(amin);
        s:=sqrt(s);
        End;
Begin
Assign(f1,'H:\lab9\1.txt');
reset(f1);
for j:=1 to 4 do
read(m1[i]);
Assign(f2,'H:\lab9\2.txt');
reset(f2);
for j:=1 to 6 do
read(m2[i]);
Sum(m1,m2,summa);
Assign(f3,'H:\lab9\3.txt');
rewrite(f3);
writeln(summa);
close(f1);
close(f2);
close(f3);
End.