Za slucaj da nekome zatreba potapanje brodova program evo kod ;)
Od sada cu i ja sto znam da pomognem :)
uses crt;
var
i,j,k1,k2,b,t : integer;
a : array [1..10,1..10] of char;
ulaz,izlaz : text;
begin
ClrScr;
TextColor(green);
Assign(ulaz,'C:\brodovi.txt')...