Не могу понять, что когда считывается n, то же самое значение получает и число i
var n, v, s, i, ma, k : integer;
begin
ma : = 0;
read(n);
for i : = 1 to n do;
read(v, s);
if (v > ma) and (s = 1) then begin
ma : = v;
k : = i;
end;
if ma < > 0 then write(i) else write('-1');
end.
for i := 1 to n do;
это цикл с пустым оператором ";" этот цикл проходит n раз и увеличивает i до значения n