Дан массив целых чисел. Найти сумму элементов массива, принадлежащих промежутку от А до В (А и В вводятся с клавиатуры)- Pascal(Паскаль)

program z_6;
uses crt;
var mas:array [1..10,1..10] of integer;
i,j,n,a,b:integer;
BEGIN
clrscr;
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите кол-во элементов: ');
readln(n);
randomize;
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=random(100);
writeln('Массив целых чисел');
for i:=1 to n do
begin
for j:=1 to n do
write(mas[i,j]:5);
writeln;
end;
writeln('Элементы входящие в (',a,';',b,')');
for i:=1 to n do
begin
for j:=1 to n do

if (mas[i,j]>a) and (mas[i,j]<b) then
begin
write(mas[i,j]:5,' Позиция: ',i,';',j);
writeln;
end;
end;
readkey;
END.