Ingabraham, lee cada línea y métela en una variable tipo string,luego usa la función pos() para detectar el texto que deseas,
p.ej.
Linea := readln(f,t);
P := pos('CORTE INTERES :',Linea);
if P > 0 then vCorte := copy(Linea,p+15,10)
y así sucesivamente...
Seguro que te servirá, pero no esperes que te pongamos todo el código de la rutina que necesitas.