🚀 go-pugleaf

alguien podria corregir en ke me estoy ekivocando a la hora de utilizar
registros y archivos

Estoy aprendiendo el uso de archivos y tengo ke aprenderlo bien antes del
jueves
lei unos manuales y esto es lo ke entendi, pero no se ke error tiene

helpme pleaseeeeeee!!!!!


??????????????????????????????
Program Registros_y_archivos;
uses crt;
Type
          tiporegistro = record
              nombre:string[15];
              apellido:string[20];

          End;

        tipoarchivo = file of tiporegistro;
Var

    archivo_logico : tipoarchivo;
    registro : tiporegistro;

Begin
        clrscr;

       assign(archivo_logico,'a:arch_texto.txt');
       rewrite(archivo_logico);

       write('Ingrese su nombre : ');
       readln(registro.nombre);
      {ESCRIBIR EN ARCHIVO}
      writeln(archivo_logico,'Nombre: ',registro.nombre);

     write('Ingrese su Apellido : ');
    readln(registro.apellido);
   {ESCRIBIR EN ARCHIVO}
    writeln(archivo_logico,'Apellido: ',registro.apellido);

    readkey;

   close(archivo_logico);

end.