Pascal/Turbo Pascal - Duda con la baja de un registro de un archivo

Hola a todos, tengo un problema en archivos y es el siguiente:
Cuando ingreso datos al registro, por ejemplo, Nom, Dir, Tel, Edad, no hay drama, pero cuando quiero ingresar por tercera vez, me lo superpone en el 1º registro ya ingresado, es algo como si no pudiera ingresar mas de 2 registros y el 2º queda intacto. En mi begin principal tengo: assign(arch,'c:alumno.txt');
activar(arch);
menu(arch);
end;
Procedure activar(var x:archivo);
var
res:byte;
Begin
clrscr;
{$I-}
reset(x);
res:=ioresult;
{$I+}
if res<>0 then
rewrite(x);
close(x);
end;
No se si el problema esta en ese lugar o en el Procedure Carga. Que se los tipeo en el suguiente mensaje. Saludos!

A ver. Al parecer el problema es que abrís el archivo, escribís lo que querés, y después lo cerrás.

Es por eso que siempre se escribe en la posición primera.
Una de las formas de arrelgarlo es llendo al final del archivo antes de escribir, usando seek(x,filesize(x)). Esto lleva al cursor del archivo al final, no al último dato, sino al final final final del archivo, donde todavía no hay ningún dato.

Espero te sirva. Saludos y felices compildas.