function typeAsText(c :char): string;

Static function typeAsText() returns a name of field type.
You can use it together with fieldType().

begin
    // your code
    writeln( cdbfapi.typeAsText('D') );
    // your code
end;