Вычислить сумму элементов массива чисел, попавших в отрезок [a;b]

[OverTeam]

Не могу найти ошибки, подскажите...



program summa;
uses crt;
const n=3;
var m:=array [1...n] of byte;
i,a,b:iteger;
sum:integer;
begin
randomize;
begin
sum:=0;
writeln('a');
readln(a);
writeln('b');
readln(b);
m[i]:=random(100);
if (a<m[i]) and (m[i]>b) then
sum:=sum+sum[i] else
writeln('не входит в промежуток');
end;
writeln ('summa=', sum);
readln;
end.

[Mad_Cat]

for i:=1 to n do begin
m[i]:=random(100);
if (a<m[i]) and (m[i]<b) then
sum:=sum+m[i] end;

[OverTeam]

спасибо...)

[skgwazap]

if (a<=m[i]) and (m[i]<=b) then