ввести массив а 50. найдите сумму частей которое больше 100

Обязано быть верно, если я верно понял твой вопрос.

program massive;  var a:array[1..50] of integer;  var i, s:integer;begin  for i:= 1 to 50 do //можем заполнить массив целыми числами от -1000 до 1000 используя random()    a[i]:= random(2001) - 1000;      for i:= 1 to 50 do //или дать пользователю самому заполнить массив  begin    writeLn('Введите значение ', i, ' элемента массива:');    readLn(a[i]);  end;      s:=0;  for i:= 1 to 50 do    if a[i] gt; 100 then      s:= s+a[i];    writeLn('Сумма элементов массива, которые больше 100 = ', s);end.