caca

Program triangulo_matriz;
var
A:array[1..100,1..100]of integer;
i,j,row,col,n:integer;
estrian,estrianup,estriandown:boolean;

begin
    writeln('Ingresa tamano matrix');
    read(n);

    writeln('Ingresa valores para la matrix');
    for i:=1 to n do //Aquí ingresas los valores.
    begin
        for j:=1 to n do
        begin
        writeln(i,',',j);
        read(A[i,j]);
        end;
    end;
    estrianup:=true; //Automaticamente true, hasta que se demuestre lo contrario.
    estriandown:=true;
    row:=1;
    col:=1;
    //Acá se verifica si la parte de arriba tiene el triangulo.
    for i:=row to n do
    begin
        for j:=col to n do
        begin
            if (A[i,j] = 0) then
            begin
                estrianup:=false;
            end;
        end;
        col:=col+1; //Se le suma 1 a las columnas para hacer el recorrido de triangulo.
    end;
    //Verifica si la parte de arriba tiene el triangulo
    row:=n; //Se le da el valor del tamaño de la matriz para que recorra la parte de abajo.
    col:=n;
        for i:=row downto 1 do
        begin
            for j:=col downto 1 do
            begin
                if (A[i,j] = 0) then
                begin
                    estriandown:=false;
                end;
            end;
            col:=col-1;
        end;

    if (estrianup) and (not estriandown) then
    begin
        writeln('triangular arriba');
    end
    else if (estriandown) and (not estrianup) then
    begin
        writeln('Triangular abajo');
    end
    else
    begin
        writeln('No es triangular.');
    end;
    read(n);
end.