Не могу понять, что когда считывается 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.