program absent;
{ search for deleted records }
VAR
    ii : real;
    leo : string;

BEGIN
    clear;
    WRITE('Dtatbase name: ');
    READLN(leo);
    OPEN(leo);
    WRITE('Logfile name: ');
    READLN(leo);
    ASSIGN('out',PATH('sys',4) | leo);

    FOR ii:=1 to MAXMFN -1 DO
    BEGIN
        IF (RECORD(ii)=1) or (RECORD(ii)=2) then
WRITELN(out,ii:6);
        WRITELN(ii:6);
    END;
END.