program SeaWar;
uses
Crt,SeaField,SeaInfo,SeaPlay;

begin
SeaWarMop;
SeaWarBag;
SeaWarInit;
SeaWarPlay;
SeaWarDone;
SeaWarOver;
end.