Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти номер последней пары соседних элементов с разными знаками — Pascal(Паскаль)

program zad;
uses crt;
const n=10;
var
i:integer;
mas:array[1..n] of integer;
begin
  clrscr;
  for i:=1 to n do
  begin
    write('введите mas[',i,']= ');
    readln(mas[i]);
  end;
  for i:=n downto 1 do
  begin
    if mas[i]*mas[i-1]<0 then
    begin
      writeln('номер последней пары с разными знаками равен ',i,' и ',i-1);
      readln;
      exit;
    end;
  end;
  writeln('таких пар нет!');
  readln;
end.