Без использования repeat, если можно.

{так как кол-во чисел не превышает 1000, то можно использовать массив длинной в 1000 элементов}
Program n1;
const n=1000;
var a: array [1..n] of integer;
i: integer;
begin
write(введите 1 число: );
readln(a[1]);
for i:=1 to n-1 do
begin
write(введите ,i+1, число: );
readln(a[i+1]);
if (abs(a[i])gt;100) then break;
if(a[i]*a[i+1]lt;50)then
begin
writeln(i, ,i+1);
break;
end;
end;
end.