Błędne obliczenia sumy w funkcji suman w Pascalu - jak naprawić?

 program faktury;
  uses crt;
  const
   N=10;
  type
  tab=array[1..N] of integer;
  var
   liczbaa,i,sumana,sumaba,sumapa,maxa:integer;
   a:tab;

 procedure czytaj(var t:tab; var liczba:integer);
  var i:integer;
  begin
   write('Podaj ilosc wprowadzanych faktur: ');
   readln(liczba);
   if liczba>N
    then liczba:=N;
   writeln('Podaj ',liczba,' wartosci cen netto faktur: ');
   for i:=1 to liczba do
   read(t[i]);
  end;
  procedure wypisz(var t:tab; var liczba:integer);
   var i:integer;
   begin
    for i:=1 to liczba do
     write(t[i],'  ');
    writeln;
    readln;
   end;
  function maxi(var t:tab; var liczba:integer): integer;
   var i,max,k:integer;
   begin
    max:=t[1];
    k:=1;
    for i:=2 to liczba do
     begin
      if t[i]>max
       then
        begin
         max:=t[i];
         k:=i;
        end;
     end;
    writeln('maxymalna cena netto to ',max,' i jej numer to ',k);
   end;
  function suman(var t:tab; var liczba:integer): integer;
   var sn,i:integer;
      begin
      for i:=1 to liczba do
      sn:=sn+t[i];
      writeln('Suma netto faktur wynosi ',sn);
    end;
  begin
   clrscr;
   czytaj(a,liczbaa);
   wypisz(a,liczbaa);
   maxa:=maxi(a,liczbaa);
   sumana:=suman(a,liczbaa);
   writeln('Nacisniecie klawisza Enter zakonczy prace programu');
   readln;
  END.

function suman(var t:tab; var liczba:integer): integer;
   var sn,i:integer;
      begin
      sn:=0; //wyzerowanie zmiennej 
      for i:=1 to liczba do
      sn:=sn+t[i];
      writeln('Suma netto faktur wynosi ',sn);
    end;