Manipulacion de Ficheros en Pascal

[JF Sebastian]

Es muy facil. Tienes que cambiar el typedef struct {...} CLI por record ... end y dentro substituir los char cod[DCL_COD]... por cod: array[1..DCL_COD] of char.
Los #define DCL_COD 10 ... los sustituyes por const DCL_COD=19; ....
short dpm[3] --> dpm: array[1..3] of shortint
char ajupa --> ajupa: char;
double riemax --> riemax: double;
float rport --> rport: single;
char diren[5][DCL_DIR] --> diren: array[1..5,1..DCL_DIR] of char;

etc,