Дан массив размера 20 и целые числа k и l. найти сумму элементов массива с номерами от k до l включительно

Var ar:array[1..20] of integer;
k,l,a,b:integer;
begin
randomize;
readln(k);
readln(l);
for a:=1 to 20 do
ar[a]:=random(a);
for a:=k to l do
b:=b+ar[a];
writeln(b);
end.