Процедуры массивы

[1gorb]

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

Program TTT;
type mas=array[1..6] of integer;
Var ma,mb:mas; j:integer; summa:longint;
f1,f2:text;
Procedure min(a:mas; n:integer; var min);
    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:longint);
        Var amin,bmin,i:integer;
        Begin
        min(m1,4,amin);
        min(m2,6,bmin);
        s:=0;
        For i:=1 to 6 do
        s:=s+(m2[i])/sqr(amin);
        s:=sqrt(s);
        For i:=1 to 4 do
        s:=s+(sqrt(m1[i])/sqr(amin));
        End;
Begin
Assign(f1,'G:\lab9\1.txt');
reset(f1);
for j:=1 to 4 do
read(ma[i]);
for j:=1 to 6 do
read(mb[i]);
Sum(ma,mb,summa);
Assign(f2,'G:\lab9\2.txt');
rewrite(f2);
writeln(summa);
close(f1);
close(f2);
End.