Problema con tablero

[Kandoo]

este es el enunciado de un probelma que tengo que hacer

Un tablero es una cuadrícula de casillas con filas y columnas donde las filas están numeradas del 1 al
10 y las columnas de de la letra A a la letra J. El nombre de una casilla en el juego es una pareja
columna, fila; Por ejemplo, A 3.
 En el tablero pueden colocarse tres tipos de barcos: Barcos de longitud uno, barcos de longitud dos y
barcos de longitud tres. Un jugador debe situar un máximo de dos barcos de longitud tres, un máximo
de tres barcos de longitud dos y un máximo de 15 barcos de longitud uno. (Por supuesto, puede haber
menos de dos barcos de longitud 3, menos de tres de longitud dos, etc.). Cada jugador debe situar en
el tablero al menos un barco.

yo lo que he hecho es esto :

type TipoColumna is new Character range 'A'..'J';
type TipoFila is new Integer range 1..10;

type TipoCoordenada is
record
fila:TipoFila;
columna: TipoColumna;
end record;
type TipoTablero is array (1..10,'A'..'F') of TipoCoordenada;

type TipoBarco1 is
record
pos1:TipoCoordenada;
end record;
type TipoBarco2 is
record
pos1:TipoCoordenada;
pos2: TipoCoordenada;
end record;
type TipoBarco3 is
record
pos1:TipoCoordenada;
pos2: TipoCoordenada;
pos3:TipoCoordenada;
end record;

or fila in 1..10 loop
for columna in 1..10 loop
put("[");
--put(columna);
--put(fila);
put("]");
if columna < 10 then
Put(" ");
end if;
end loop;
New_Line;
end loop;

pero claro no creo que esté bien 1 porque no me sale y dos porque no está relacionado me podriais ayudar a arreglarlo o darme alguna sugerencia .gracias