Mi a hiba a programozási feladatomban? (pascal)

Program ujsor;

Uses Crt;

Var V:boolean;

I,J:integer;

Begin

V:=true;

for i:=1 to 8 do

begin

if (i mod 2)>0 then v:=true

else v:=false;

end;

for j:=1 to 8 do

begin

if (j mod 2)>0 then begin v:=true;

writeln('A');

end

else writeln('B');

end;

end.

Nem fut le maga a program sem így.

Elvileg a megoldás ez lenne:

ABABABAB

BABABABA

ABABABAB

BABABABA

ABABABAB

BABABABA

ABABABAB

BABABABA