porque pasa esto?

hola! recien empiezo con esto de programacion y tengo un problema con PASCAL. Lo que tendria que hacer es crear un archivo con el nombre alumnos.dat, despues ingresar los registros que se indican alli y luego a esos mismos registros ingresados tiene que mostrarlos en pantalla...la compilacion anda bien el probema es que no me muestra la cadena de caracter nom y quisiera saber porque pasa esto y como puedo solucionarlo.. desde ya muchas gracias

program archivos;
type
treg=record
numleg: longint;
codmat: longint;
dia: byte;
mes: byte;
anio: byte;
nom: string[25];
end;
tarch= file of treg;
var
reg: treg;
arch: tarch;
i,h: integer;
begin
assign (arch, 'alumnos.dat');
rewrite (arch);
for i:=1 to 2 do
begin
writeln('Ingrese legajo, codig de materia, fecha del examen, y nombre del alumno:');
read (reg.numleg, reg.codmat, reg.dia, reg.mes, reg.anio, reg.nom);
write (arch,reg);
end;
reset (arch);
for h:=1 to 2 do
begin
read (arch,reg);
writeln ('El numero de legajo es: ', reg.numleg);
writeln ('El codigo de materia es: ', reg.codmat);
writeln ('La fecha del examen es :', reg.dia,'/',reg.mes,'/',reg.anio);
writeln ('Nombre del alumno: ', reg.nom);
end;
close (arch);
end.