begin // your code for i := 0 to dbf.fieldCount-1 do writeln( intToStr( dbf.fieldLength( i ) ) ); // your code end;