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