program 3;
CONST
    MAX = 500;
TYPE
    TPEntero = ^integer;
    TTabla = array [1..MAX] OF TPEntero;
VAR
    tabla1 : TTabla;
PROCEDURE ej3(VAR t: TTabla; min: integer);
VAR
    i: integer;
BEGIN
    FOR i:=0 TO MAX DO
    BEGIN
        IF t[i]^ < min THEN
        dispose(t[i]);
    END;
END;
begin
    ej3(tabla1);
end.