BATALLA NAVAL (Alex Gutierrez)

program naval;
uses crt;
const
        fil=20;
        col=15;
type
    batallaNaval = array [1..fil, 1..col] of boolean;

var
    va: batallaNaval;
    a,d,c,e,f : integer;
    procedure indicarDisparo (var re,ra :integer; var prom : integer);
    var
        cont,disp,aux : integer;
        resp : char;
    begin
        cont:=0;
        disp:=0;
        repeat
            writeln ('Ingrese las coordenas donde va a efectuar el disparo');
            readln (re,ra);
            while (re<0) and (ra<0) and (re>col) and (ra>fil) do
                begin
                    readln (re,ra);
                    writeln ('Los puntos indicados no son correctos');
                end;
            disp:=disp+1;
            if va[ra,re] = true
            then
                begin
                    writeln ('Bien le diste a un barco');
                    cont:=cont+1
                end
            else
                begin
                    writeln ('Fallaste le diste al agua :D');
                end;
            writeln ('Cantidad de disparos efectuados ',disp);
            writeln ('¿Desea efectuar otro disparo? s/n');
            readln (resp);
        until (resp='n') or (disp=20);
        aux:=(cont*100);
        prom:=(aux div disp);
        writeln ('Su promedio de disparos es %', prom);
    end;
    procedure barcos (var x,y : integer);
    var
        z: char;
        contador: integer;
    begin
        repeat
            contador:=0;
            writeln ('Ingrese las coordenas donde se va a encontrar el barco');
            readln (x,y);
            while (x<0) and (y<0) and (x>col) and (y>fil) do
                begin
                    readln (x,y);
                    writeln ('Los puntos indicados no son correctos');
                end;
            contador:=contador+1;
            va [x,y]:= true;
            if contador<10
            then
                writeln ('¿Desea ingresar otro barco? s/n');
                readln (z);
        until (z='n') or (contador=10);
    end;
    procedure mostr (q,w : integer);
    begin
        writeln('Los barcos se encontraban en estas coordenadas:');
        q:= 1;
        while (q<=Fil) do
            begin
                w:= 1;
                    repeat
                    if va[q,w]=true then
                    writeln(q,',', w);
                    w:= w + 1;
                    until (w=Col);
            q:= q + 1;
            end;
    end;
begin
    clrscr;
    textcolor (red+blue);
    barcos (c,e);
    clrscr;
    textcolor (blue);
    indicarDisparo (a,d,f);
    textcolor (red+white);
    mostr (c,e);
    readkey;
end.