Как определить, к какому типу данных (integer, real, string, char и т.д) относится число или слово

program Project1;
 
{$N+} {Подключение математического сопроцессора. При этом становится доступным тип Extended.}
 
var
  S : String;
  I, Code : Longint;
  F : Extended;
begin
  repeat
 
    {Здесь цикл repeat нужен только для организации ветвления через if - break.}
    repeat
      Write('Ввод: ');
      Readln(S);
      {Проверка на пустой ввод.}
      if S = '' then
      begin
        Writeln('Пустой ввод.');
        Break;
      end;
      {Проверка принадлежности к типу Longint.}
      Val(S, I, Code);
      if Code = 0 then
      begin
        if Length(S) = 1 then
        begin
          Writeln('Введён 1 символ, который является цифрой.');
          Writeln('Значение может быть отнесено к типам: Longint, Char, String[1]');
        end
        else
          Writeln('Тип Longint.');
        Break;
      end;
      {Проверка принадлежности к типу Extended.}
      Val(S, F, Code);
      if Code = 0 then
      begin
        Writeln('Тип Extended.');
        Break;
      end;
      {Проверка принадлежности к типу Char.}
      if Length(S) = 1 then
      begin
        Writeln('Тип Char или String[1].');
        Break;
      end;
      {Тип String.}
      Writeln('Тип String.');
    until True;
 
    Writeln('Повторить - Enter, выход - любой симовол + Enter.');
    Readln(S);
  until S <> '';
end.