Problema de PASCAL

POSTEO EL PROBLEMA DE PASCAL DE LA EMPRESA TELEFONICA QUE DIO NUESTRO TAN QUERIDO APELBAUM(?).

___________________

Program telef;

uses crt; var 

     min:integer;      total,imp:real;      clientes:string;

begin

         clrscr;

          repeat

                     write('Ingrese el nombre del cliente: ');

                      readln(clientes);

                      if clientes='fin' then

                                 writeln('Lo reacuadado es: ',total:0:2)

                       else 

                              begin

                                       write('Ingrese el numero de minutos hablados: ');

                                        readln(min);

                                        imp:=min*0.07+30;                                         total:=total+imp;

                                        writeln('El cliente debe abonar: ',imp);

                                         delay(200);

                              end;

            delay(3000);

end.

___________________

este es el programa como lo hice yo.....aganle algunos cambios los que quieran pero la estructura es la misma que la de los campos.....