[joaco]

Buenas gente, soy nuevo en el foro. Me pareció muy interesante toda la informacion que hay y me registré. Hace un tiempo comence a aprender BSD en la facultad y ahora nos piden un programita sencillo en el cual tengo un problema que no se resolver. Antes de borland, estuvimos trabajando con Pascal, para que nos resulte familiar.

Bueno, el tema es que tengo que hacer un programita para gestionar un cajero automatico. Debe tener un archivo de clientes y otro de cuentas de clientes. El problema es que al crear estos archivos, me salen unos errores que no se solucionarlos. A continuacion les paso el codigo, el cual es reciclado de otro programa hecho en Pascal.

Código Delphi [-]
type
    registroclientes = record
        nrocliente:longint;
        nombrecli:string [30];
        clave:longint;
    end;
archivoclientes = file of registroclientes;

type
    registrocuentas = record
        nrocliente:longint;
        nrocuenta:longint;
        monto:longint;
    end;
archivocuentas = file of registrocuentas;

type
    registroempleados = record
        nroempleado:longint;
        nombreemp:string [30];
        clave:longint;
    end;
archivoempleados = file of registroempleados;

begin
  Application.Initialize;
  Application.CreateForm(Tformularioinicio, formularioinicio);
  Application.CreateForm(Tformularioclientes, formularioclientes);
  Application.CreateForm(Tformulariocuenta, formulariocuenta);
  Application.Run;
   assign (archivoclientes ,'c:/cajero/archivoclientes.dat');
        {$I-}
                reset (archivoclientes);
        {$I+}
                if ioresult<>0 then
                        rewrite(archivoclientes);

        assign(archivocuentas,'c:\cajero/archivocuentas.dat');
         {$I-}
                reset (archivocuentas);
         {$I+}
                if ioresult<>0 then
                        rewrite(archivocuentas);
         assign(archivoempleados,'c:\cajero/archivoempleados.dat');
         {$I-}
                reset (archivoempleados);
         {$I+}
                if ioresult<>0 then
                        rewrite(archivoempleados);
                close (archivoempleados);
end.

Estos son los errores:

[Pascal Error] cajero.dpr(41): E2029 '(' expected but ',' found
[Pascal Error] cajero.dpr(41): E2008 Incompatible types
[Pascal Error] cajero.dpr(43): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(45): E2066 Missing operator or semicolon
[Pascal Error] cajero.dpr(46): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(48): E2029 ')' expected but identifier 'assign' found
[Pascal Error] cajero.dpr(48): E2029 '(' expected but ',' found
[Pascal Error] cajero.dpr(48): E2008 Incompatible types
[Pascal Error] cajero.dpr(50): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(52): E2066 Missing operator or semicolon
[Pascal Error] cajero.dpr(53): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(54): E2029 ')' expected but identifier 'assign' found
[Pascal Error] cajero.dpr(54): E2029 '(' expected but ',' found
[Pascal Error] cajero.dpr(54): E2008 Incompatible types
[Pascal Error] cajero.dpr(56): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(58): E2066 Missing operator or semicolon
[Pascal Error] cajero.dpr(59): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(60): E2029 ')' expected but identifier 'close' found
[Pascal Error] cajero.dpr(60): E2029 '(' expected but ')' found
[Pascal Error] cajero.dpr(61): E2029 ')' expected but 'END' found