задача на типы данных Опции

[Hunt666]

мне необоходимо написать такую прогу:в диалоговом режиме вводится число ,если оно относится к целому типу данных то в результате тоже должно быть целое число ,точно также с вещественным,сивольным и логическим типом данных (все в одной проге)реализовать надо на паскале .
P.S.
сам толком задание не понял и как делать не представляю,памажите кто чем может

[volvo]

function UpStr(s: string): string;
var i: integer;
begin
  for i := 1 to length(s) do
    s[i] := UpCase(s[i]);
  UpStr := s;
end;

var
  s: string;
  code: integer;
  i: longint;
  r: real;
  b: boolean;

begin
  write('> '); readln(s);
  val(s, i, code);
  if code > 0 then begin
    val(s, r, code);
    if code > 0 then begin

      if length(s) > 1 then begin

        if (UpStr(s) = 'TRUE') or (UpStr(s) = 'FALSE') then begin
          b := UpStr(s) = 'TRUE';
          writeln('Boolean type. B = ', b);
        end
        else writeln('None of these types... Just a string: ', s);

      end
      else writeln('Char type. Ch = ', s);

    end
    else writeln('Real type. R = ', r:10:5);
  end
  else writeln('Integer type. I = ', i:10);

end.