function TamFichero(n : string) : longint;
var
f: file of Byte;
begin
        AssignFile(f, n);
        Reset(f);
        TamFichero := FileSize(f);
        CloseFile(f);
end;