procedure   compararespacios(var matriz:tmat;var mayesp:integer; var maypiso:integer; var horas:integer);

var     valor,espacio,piso,hora:integer;

begin

    piso:=1;

    espacio:=1;

    mayesp:=1;

    maypiso:=1;

    horas:=sumaespacios(matriz,espacio,piso);

    for espacio:=2 to maxespacios do

        while (piso < maxpisos) do

            begin

                piso:=piso + 1;

                valor:=sumaespacios(matriz,espacio,piso);

                if (horas < valor) then

                    begin

                        horas:=valor;

                        maypiso:=piso;

                        mayesp:=espacio;

                    end;

            end;

    for hora:=0 to maxhoras do

        matriz[maypiso,mayesp,hora]:= 0;

end;