Консольный морской бой, реализация циклами

#include <iostream>
#include <iomanip>
#include <vector>
using namespace std;
 
int main()
{
    vector <vector <char> > pole1;
    pole1.resize(10);
 
        for(int i=0; i< pole1.size(); i++)
        pole1[i].resize(10);
vector <vector <char> > pole2;
    pole2.resize(10);
        for(int i=0; i<pole2.size(); i++)
            pole2[i].resize(10);
 
for(int i=0;i<10;i++)
        {
                if (i==1)
                {
                        char line[11]={'a','b','c','d','e','f','g','h','i','j','\0'};
                        int a=0;cout<<"   ";
                        while(line[a]!='\0')
                         {
 
                                        cout<<line[a];
                                        cout<<" ";
                                        a++;}
                         a=0;
                        cout<<"          ";
                        while(line[a]!='\0')
                        {
                                        cout<<line[a];
                                        cout<<" ";
                                        a++;
                        }
                        cout<<endl<<endl;
                }
                }
 
    for(int i=0; i< pole1.size(); i++) {
            cout<< setw(2) << i+1 << " ";
        for(int j=0; j<pole1[i].size(); j++){
            pole1[i][j] = 177;
            cout << pole1[i][j]<< " ";
        } cout << "       ";
        cout<< setw(2) << i+1 << " ";
  for(int j=0; j<pole2[i].size();j++){
            pole2[i][j]=177;
        cout <<pole2[i][j]<<" ";
    }
 
        cout << endl<< endl;
           }
 
    return 0;
}

function Freedom (x, y: Integer; Pole: TPole): Boolean;
const d: array[1..8,1..2] of Integer =
      ((0,1),(1,0),(0,-1),(-1,0),(1,1),(-1,1),(1,-1),(-1,-1));
var i: Integer;
    dx, dy: Integer;
begin
  if (x > 0) and (x < 11) and (y > 0) and (y < 11) and (Pole[x,y] = -1) then
  begin
    for i := 1 to 8 do
    begin
      dx := x + d[i,1];
      dy := y + d[i,2];
      if (dx > 0) and (dx < 11) and (dy > 0) and (dy < 11) and (Pole[dx,dy] > -1) then
      begin
        Result := False;
        Exit;
      end; {if}
    end; {for}
    Result := True;
  end else Result := False;
end; {func Freedom}