Masyvo elementų sudėtis

Nesigauna, gal kas galėtų padėti?

program Suma1;
type mas = array[1..100] of integer;
var intervalas: mas;
n, nr, i: integer;
function suma(n: integer; intervalas: mas): integer;
var s, i : integer;
begin
for i:=1 to n do
 begin
  s := intervalas[nr] + intervalas[nr+1];
 end;
suma := s;
end;
begin
 WriteLn('Kiek intervale nariu?');
 ReadLn(n);
 WriteLn('Nariai');
 For i:=1 to n do
 begin
  readLn(intervalas[nr]);
 end;
 WriteLn(suma(n, intervalas));
 Readln;
end.

Begin
     s:=s+intervalas[i];
End;

Funkcijoj taip for pasikeisk

Begin
     s:=s+intervalas[i];
End;

 

Funkcijoj taip for pasikeisk

Išsijungia programa ir meta klaidą, kad peržengti rėžiai

funkcijoj pries cikla s := 0 parasyk, nes dabar sumuoji ant jokios reiksmes, taip ir gaunas, kad meta siuksle

funkcijoj pries cikla s := 0 parasyk, nes dabar sumuoji ant jokios reiksmes, taip ir gaunas, kad meta siuksle

Ačiū!