Найти сумму элементов массива, которые попадают в диапазон от a до b

var ar:array [1..100] of integer;
    i,a,b,n,sum:integer;
begin
  write('n = '); readln(n);
  repeat
    write('a,b = '); readln(a,b);
  until b>a;
  sum:=0;
  for i:=1 to n do begin
    ar[i]:=random(100); write(ar[i],' ');
    if (ar[i]>=a) and (ar[i]<=b) then sum:=sum+ar[i];
  end; writeln;
  if sum>0 then write('Сумма: ',sum) else
    write('Таких элементов нет');
end.

var
  ar: array [1..100] of integer;
  i, k, a, b, n, sum: integer;
 
begin
  write('n = ');
  readln(n);
  repeat
    write('a,b = ');
    readln(a, b);
  until b > a;
  sum := 0;
  k := 0;
  for i := 1 to n do 
  begin
    ar[i] := -n div 2 + random(n);
    write(ar[i], ' ');
    if (ar[i] >= a) and (ar[i] <= b) then 
    begin
      sum := sum + ar[i];
      inc(k);
    end;  
  end;
  writeln;
  if k <> 0 then 
    write('Сумма: ', sum) 
  else
    write('Таких элементов нет');
end.