Работа с одномерным массивом

Uses crt;
const n=10;
Type mas=array[1..n]of integer;
Var a:mas;
    max,k:integer;
procedure Sozd(Var a:mas; n:integer);
var i:integer;
begin
  for i:=1 to n do a[i]:=Random(100)-50;
end;
procedure Print(a:mas; n:integer);
var i:integer;
begin
  for i:=1 to n do Write(a[i]:4);
  writeln;
end;
function Sum_Pol(a:mas; n:integer):integer;
var i,sum:integer;
begin
  sum:=0;
  for i:=1 to n do if a[i]>0 then sum:=sum+a[i];
  Sum_Pol:=sum;
end;
procedure Max_Elem(var max,k:integer;a:mas; n:integer);
var i:integer;
begin
  max:=a[1];
  k:=1;
  for i:=2 to n do if a[i]>max then
  begin
    max:=a[i];
    k:=i;
  end;
end;
function Sum_Neotr(a:mas; n:integer):integer;
var i,sum:integer;
begin
  sum:=0;
  for i:=1 to n do if not(a[i]<0) then sum:=sum+a[i];
  Sum_Neotr:=sum;
end;
function Kol_Pol(a:mas; n:integer):integer;
var i,kol:integer;
begin
  kol:=0;
  for i:=1 to n do if a[i]>0 then inc(kol);
  Kol_Pol:=kol;
end;
 
Begin clrscr; randomize;
  Sozd(a,n);
  Print(a,n);
  WriteLn('Summa vseh polozhitelnykh elementov massiva =',Sum_Pol(a,n));
  Max_Elem(max,k,a,n);
  WriteLn('Max element massiva a[',k,']=',max);
  WriteLn('Summa vseh neotritsatelnykh elementov massiva =',Sum_Neotr(a,n));
  WriteLn('Kolichestvo polozhitelnyh elementov massiva =',Kol_Pol(a,n));
  readln;
end.