Pascal VBE 2011 Šokiai

program Sokiai;
type
   atsakos = record
             vardai : string[20];
             gautas_balas : integer;
             balai_t : array [1..10] of integer;
             balai_a : array [1..10] of integer;
             end;
   masyvas = array [1..100] of atsakos;
var
   atmintis:masyvas;
   i,y,k,pasirodymai,technika,artistiskumas:integer;
procedure nuskaitymas;
var
   n:integer;
   duomenys:text;
begin
   assign(duomenys, 'U2.txt');
   reset(duomenys);
   readln(duomenys, n, k);
   if n mod 2 <> 0
    then n:=n+1;
   pasirodymai:=n div 2;
   for i:=1 to pasirodymai do
    begin
     readln(duomenys, atmintis[i].vardai);
     for y:=1 to k do
      read(duomenys, atmintis[i].balai_t[y]);
     readln(duomenys);
     for y:=1 to k do
      read(duomenys, atmintis[i].balai_a[y]);
     readln(duomenys);
    end;
   close(duomenys);
end;
function balai(visi_balai:masyvas):integer;
var
   min,max,bendra_suma:integer;
begin
   min:=0;
   max:=0;
   for i:=1 to k do
    begin
     if max<visi_balai[i]
      then max:=visi_balai[i];
     if min>visi_balai[i]
      then min:=visi_balai[i];
     bendra_suma:=bendra_suma+visi_balai[i];
    end;
   if min<>0
    then balai:=bendra_suma-(min+max)
    else balai:=bendra_suma-(visi_balai[1]*2);
end;
begin
   nuskaitymas;
   for i:=1 to pasirodymai do
    begin
     technika:=balai(atmintis[i].balai_t);
     artistiskumas:=balai(atmintis[i].balai_a);
     atmintis[i].gautas_balas:=technika+artistiskumas;
    end;

   readln;
end.

Kaip matot į funkciją man reikia išsiųsti atminties pirmajame langelyje esančius visus balus į funkciją, ir čia kažkur klaida yra.

http://s8.postimage.org/latxgv8c5/image.png

Kur klaidą darau? Ne taip kreipiuosi į funkciją?

Nelabai atsimenu pascal, bet pas tave kintamojo visi_balai tipas yra įrašo masyvas, o į funkciją siunti – integer masyvą, tai pabandyk taip:

function balai(visi_balai:array [1..10] of integer):integer;