Найти сумму элементов массива, больших данного числа b (b вводится с клавиатуры) — Pascal(Паскаль)

program PascalGuru;

uses crt;

var
  A: array [1 .. 50] of integer;
  i, n, b, summa: integer;

begin

  writeln('Vvedite PERVYI massiv:');
  write('Razmer massiva "n": ');
  readln(n);
  for i := 1 to n do
  begin
    write('A[', i, ']=');
    readln(A[i]);
  end;

  clrscr;
  writeln('Vi vveli:');
  write('A: ');
  for i := 1 to n do
    write(A[i], ' ');
  writeln;

  write('Vvedite "b": ');
  readln(b);
  summa := 0;
  for i := 1 to n do
    if A[i] > b then
      summa := summa + A[i];
  writeln;
  writeln('Summa: ', summa);

  readln;

end.