Дано число n и вектор a=(a1,a2,…,an). Вычислить сумму положительных координат вектора a; найти максимальное значение координаты и его номер — Pascal(Паскаль)

program Dekio;

const
  n = 15;

var
  arr: array [1 .. n] of integer;
  i, max, s: integer;

begin
  max := 1;
  s := 0;
  writeln('Введите массив');
  for i := 1 to n do
  begin
    readln(arr[i]);
    if arr[i] > arr[max] then
      max := i;
    if arr[i] > 0 then
      inc(s, arr[i]);
  end;
  writeln('Максимальный элемент ', arr[max], ' под индексом ', max);
  writeln('Сумма положительных чисел ', s);

end.