Найти сумму третьего и шестого положительных элементов одномерного массива — Pascal(Паскаль)

program gremlin;

uses crt;

var
  s: array [1 .. 10] of integer;
  r, n, i: integer;

begin
  r := 0;
  repeat
    clrscr;
    writeln('Введите количество элементов массива');
    readln(n);
  until n >= 6;
  for i := 1 to n do
  begin
    readln(s[i]);
  end;
  if (s[3] > 0) and (s[6] > 0) then
  begin
    r := s[6] + s[3];
  end;
  writeln(r);
  readln;

end.