Funkcja liczaca sume wyrazow ciagu arytm. [Pascal]

[Civril]

function ciagarytm(var a,r:integer; l:byte):longint;

var

s:longint;

i:byte;  {licznik petli repeat}

j:byte;  {licznik petli for}

b:longint;  {zmienna w ktorej wylicze kolejne wyrazy ciagu}

begin

i:=1;

s:=a;

b:=a;

for j:=1 to l-1 do b:=b+r;      {wyliczanie kolejnego wyrazu...}

begin

repeat

s:=s+b;                 {...i doadawanie go do sumy}

i:=i+1;

until i=l-1;

end;

ciagarytm:=s;

end;

Ta funkcja ma liczyc to co w temacie tylko tego nie robi dostrzega ktos bledy?

EDIT:Probelm rozwiazany, teamat juz jest zbedny Chce skasowac ten temat ale nie wiem jak