battle

proste "jen" spocitam lode


{compare two successive rows}
Procedure CompareRows;
Var I: Integer;
Begin
    I := 1;
    While (I <= SizeY) do
    Begin
        If (Row1[I] <> Row2[I]) then
        Begin
            If (Row1[I-1] = chShip) or (Row2[I-1] = chShip) then
                IsValid := false;
            If (Row1[I] = chShip) then
            Begin
                Repeat
                    Inc (I);
                    If (Row2[I] = chShip) then IsValid := false;
                until (Row1[I] <> chShip)
            End else Begin
                Inc (ShipCnt);
                Repeat
                    Inc (I);
                    If (Row1[I] = chShip) then IsValid := false;
                until (Row2[I] <> chShip);
            End;
        End;
        Inc (I);
    End;
End;