PascalABC.Дан одномерный массив целых чисел от -20 до 30 из 15

//PascalABC.Net 3.0, сборка 1053
const
  n=15;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do begin
    a[i]:=Random(51)-20;
    Write(a[i],' ')
  end;
  Writeln;
  s:=0;
  for i:=1 to n do
    if a[i]gt;a[5] then s:=s+a[i];
  Writeln('Сумма разыскиваемых элементов равна ',s)
end.

Тестовое решение:
Начальный массив
-10 0 -10 -13 11 7 13 7 -2 -11 12 19 -20 10 -3
Сумма разыскиваемых элементов одинакова 44