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;