Как ограничить введение данных символами латинского алфавита

program sets;
uses crt;
const MAX = 50;  
 
type T = char; 
     TSet = array[1..MAX] of t; 
 
procedure sort(var A: TSet; const n: integer);
var i, j, k: integer;
    tmp: T;
begin
 for i := 1 to n - 1 do
     begin
      k := i;
      for j := i + 1 to n do
          if A[j] < A[k] then k := j;
      tmp := A[i];
      A[i] := A[k];
      A[k] := tmp;
     end;
end;
 
procedure input_set(var A: TSet; var n: integer);
var i, j: integer;
    f: boolean;
begin
 reset(input);
 n := 0;
 while not SeekEoLn do
     begin
      inc(n);
      read(A[n]);
     end;
 sort(A, n);
 f := false;
 i := 1;
 while i < n do
     begin
      if A[i] = A[i + 1] then
       begin
        f := true;
        dec(n);
        for j := i + 1 to n do
            A[j] := A[j + 1];
       end
      else
       inc(i);
     end;
 if f then writeln('Повторяющиеся элементы удалены');
end;

program sets;
uses crt;
const MAX = 50;  
 
type T = char; 
     TSet = array[1..MAX] of t; 
 
...
 
procedure input_set(var A: TSet; var n: integer);
var i, j, o: integer;
    f: boolean;
begin
 repeat
 reset(input);
 n := 0; o:=0;
 while not SeekEoLn do
     begin
      inc(n);
      read(A[n]);
      if not (UpCase(A[n]) in ['A'..'Z']) then o:=o+1;
     end;
 write('Ошибок при вводе: ',o,'. ');
 if (o>0) then writeln('Повторите ввод.');
 until (o=0);
 
...