На чемпионате мира по танцам выступает 6 танцоров. Они выступают поначалу

Надеюсь я все учел, довольно большая и трудная задачка...

Var o,l:integer;

a,b,max2:real;

procedure rip (var x,t:real; i:integer);

var q,min,max:integer;

a1:array [1..10] of integer;

begin

writeln ('Введите через пробел оценки за краткую программу танцора номер ',i);

For q:=1 to 10 do begin

read (a1[q]);

t:=a1[q]+t;

end;

min:=a1[1];

max:=min;

For q:=2 to 10 do begin

If a1[q]lt;min then min:=a1[q];

If a1[q]gt;max then max:=a1[q];

end;

t:=(t-max-min)/8;

writeln ('Введите через пробел оценки за произвольную программку танцора номер ',i);

For q:=1 to 10 do begin

read (a1[q]);

x:=a1[q]+x;

end;

min:=a1[1];

max:=min;

For q:=2 to 10 do begin

If a1[q]lt;min then min:=a1[q];

If a1[q]gt;max then max:=a1[q];

end;

x:=(x-max-min)/8;

end;

begin

For o:=1 to 6 do begin

rip (a,b,o);

If (a+b)gt;max2 then begin max2:=a+b; l:=o; end;

end;

writeln (l);

end.