Дан одномерный массив из 5 частей. Найти сумму всех положительных частей

var
  a: array[1..5] of integer; // объявление массива.
  i, s : integer; // объявление переменных целочисленного типа.
begin
  writeln(Введите 5 целых чисел, для наполнения массива: ); // вывод строчки на экран.
  for i := 1 to 5 do  // начало цикла из 5 шагов.
  begin
    readln(a[i]); // считываем элемент массива с номером i.
    if a[i] gt;0 then  // если элемент положительный - считаем сумму.
     s:=s + a[i];
  end;
 writeln(Сумма положительных элементов массива одинакова : , s); //вывод строчки на экран.
end.