Pascal/Turbo Pascal - AYUDA VALIDAR SOLO LETRAS O TEXTO EN PASCAL

Repeat

Write('           Ingrese Nombres y Apellidos:   ');

ReadLn(Reg.Nom);

if Reg.Nom= '' then

WriteLn('Debe Escribir el Nombre del Estudiante');

until

Reg.Nom <> '';

{Esto puede servir}

 program validar;

  uses

     crt;

  var

    nomb : string[80];

    t : integer;

    valido : boolean;

  begin

 repeat

     clrscr;

     valido := true;

     write('   Entre Nombre y Apellido : ');

     readln(nomb);

     for t := 1 to length(nomb) do

     if ord(nomb[t]) in[32,65..90,97..122,164,165] then

     begin

     end

   else

      valido := false;

  if valido = false then

  begin

   writeln('**** Solo Letras y Espacios Pulse [Enter]');

   readln;

  end;

 until (valido = true) and (t = Length(nomb));

 clrscr;

 writeln('   Usted a Entrado : ',nomb,'   Pulse [Enter]');

 readln;

 end.