Дан массив целых чисел. Найти: 1. Сумму элементов массива, больших данного числа А (число А вводить с клавиатуры) — Pascal(Паскаль)

var
b:array[1..100]of integer; {объявили массив с заведомо большим количеством элементов-100}
n,i,a,s:integer;
begin
writeln('vvedite kol-vo elementov');{вводим количество элементов}
readln(n);
for i:=1 to n do
begin
writeln('vvedite element'); {заполняем массив с клавиатуры, вводя элементы}
readln(b[i]);
end;
writeln('massiv');{распечатываем введённый массив в строчку}
for i:=1 to n do
write(b[i],' ');
writeln('vvedite chislo a');
readln(a);{вводим число а}
for i:=1 to n do      {проходим по массиву, если находим элемент, больший, чем а} 
if b[i]>a then s:=s+b[i];   {добавляем его к сумме}
writeln('summa=',s);  {выводим сумму}
readln;
end.