Как реализовать стрельбу по полю (что-то вроде морского боя)?

uses crt;
var razmer_k, kolvo_k, strokstolb :byte; {razmer_k -размер корабля}
strok, stolb, napravl_k :byte; {kolvo_k-количество кораблей}
pole:array[0..11,0..11] of integer; {strok,stolb- строка и столбец на поле}
i,j :integer; {napravl_k - направление корабля (вертик горизон) }
m_postav : boolean;
 
function pvpk ( strok, stolb,napravl_k,razmer_k:byte ):boolean ; /// pvpk проверка возможности поставить корабль
begin // проверка того не вылезает ли за границы
result :=true;
if napravl_k= 0 then // 0- столб
if stolb+ razmer_k >11 then
begin
result :=false;
exit
end ;
 
if napravl_k= 1 then //1 -строка
if strok+ razmer_k >11 then
begin
result :=false;
exit
end;
 
for i:=0 to razmer_k -1 do
begin
if pole [strok, stolb]<>0 then
begin
result :=false;
break ;
end;
if napravl_k =0 then stolb:=stolb+1
else strok :=strok+1 ;
end;
end;
 
/////////////
procedure postav_k ( strok, stolb,napravl_k,razmer_k:byte ); /// поставить корабль
var i,j :byte;
begin // задает границы вокруг корабля
if napravl_k=0 then
for i:= strok-1 to strok+1 do // горизон
for j:= stolb-1 to stolb+ razmer_k do
pole[i,j]:= 255
else
for i:= strok-1 to strok+ razmer_k do
for j:= stolb-1 to stolb+1 do // вертик
pole[i,j]:= 255;
 
{помечаем клетки самого кораб}
for i:=0 to razmer_k -1 do
begin
pole[strok, stolb]:= razmer_k; //какой размер коробля столько и отрис
if napravl_k=0 then stolb:=stolb+1
else strok:= strok+1;
 
end;
end;
///////
// vp вывод поля
procedure vp (i,j:byte);
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
if pole[i,j] =255 then write (0:4) else write ( pole[i,j]:4);
writeln
end;
end;
 
procedure strelba (i,j:byte);
var a,buf :byte;
begin a:=0;
repeat a:=a+1;
writeln ('введите координаты стрельбы x, y');
readln ( j,i ) ;
if pole[i,j] =255 then write ('мимо') else
if pole[i,j] =1 then write ('однопалубник уничтожен') else
if pole[i,j] =2 then write ('поподание в двухпалубник') else
if pole[i,j] =3 then write ('поподание в трехпалубник') else
if pole[i,j] =0 then write ('мимо') else
if pole[i,j] =4 then write ('поподание в четырехпалубник');
writeln (''); writeln ('');
 
vp (i,j);
until a=50;
end;
 
{----------------}
 
begin
for razmer_k :=1 to 4 do /// задаем размер и кол-во кораб
for kolvo_k :=1 to 5-razmer_k do
begin
// writeln ('размер кораб ',razmer_k );
 
repeat
strok :=random (10)+1; /// задаем координ кораб
stolb :=random (10)+1;
napravl_k :=random (2) ; /// направление корабля
 
// writeln ('коорд кораб',strok:5,stolb:4, '--',napravl_k:4 );
 
m_postav := pvpk ( strok, stolb,napravl_k,razmer_k ) ;
if m_postav
then postav_k ( strok, stolb,napravl_k,razmer_k )
until m_postav;
end;
 
vp (i,j);
strelba (i,j);
end.