Запрос на ввод цифр вместо букв..

Program Ifit;
Uses crt;
Var sub:array[1..4] of string;
       Grades:array[1..4,1..4] of integer;
        i,j,q:integer;
begin
Clrscr;
For i:=1 to 3 do
       Begin
                Write(‘какой предмет?’);
                 Readln(sub[i]);
                  For j:=1 to 3 do
                        Begin
                                 Write(‘студент ‘,j,’ оценка: ‘);
                                  Readln(grades[i,j]);
                         End;
   End;
Writeln;
Writeln(‘предмет || студент 1 || студент 2 ||  студент 3 || средний балл’);
For i:=1 to 3 do
Writeln(sub[i],’        ‘,grades[i,1],’        ‘,grades[i,2]
,’          ‘,grades[i,3],’            ‘,
(grades[i,1]+grades[i,2]+grades[i,3])/3:1:1);
Writeln(‘ Sredniy.bal           ‘,(grades[1,1]+grades[2,1]+grades[3,1]/3:1:1,’        ‘,
(grades[1,2[+grades[2,2]+grades[3,2])/3:1:1,’
(grades[1,3]+grades[2,3]+grades[3,3]/3:1:1);
End.

For j:=1 to 3 do
  Begin
    repeat
    Write(‘студент ‘,j,’ оценка: ‘);
    Readln(grades[i,j]);
    until grades[i,j] in [2..5];
  End;

Var
   s: string;
   i: integer;
   InputError: Boolean;
begin
 repeat
  ReadLn(s);
  InputError := False;
  for i := 1 to Length(s)
  do if not (s[i] in ['0'..'9'])
     then begin
          InputError := True;
          Break;
          end;
  if InputError
  then WriteLn('Input error!');
 until not InputError;
 WriteLn(s,' Ok!');
end.

Var
 n: Integer;
begin
 Repeat
 Write('Enter: ');
 {$I-}ReadLn(n);{$I+}
 if IOResult = 0
 then Break;
 WriteLn('Input error!');
 until False;
end.