Массив n элементов (random) подсчитать сумму элементов превышающих величину T. Pascal

var a:array[1..1000] of integer;n,i,T,s:integer;beginwrite('Введите количество элементов массива (n<1000): ');readln(n);for i:=1 to n do a[i]:=random(51);write ('Массив: ');for i:=1 to n do write(a[i],'  ');writeln;write('Введите величину T: ');readln(T);for i:=1 to n doif a[i]>T then s:=s+a[i];writeln('Сумма элементов превышающих величину T = ',T,' равна ',s);readlnend.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var t:=Readinteger('T=');  Writeln('S=',a.Where(p->p>t).Sum)end.Примерn= 1513 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41T= 12S=159