Как определить является ли введенная строка числом или текстом?

var num, s: string;
  CountNumber, CountSymbol, i: integer;
begin
  num:='1234567890';
  writeln('Vvedite stroku');
  readln(s);
  CountNumber:=0; 
  CountSymbol:=0;
 
  for i:=1 to length(s) do
    if pos(s[i], num) <> 0 then
      CountNumber:= CountNumber + 1
    else
      CountSymbol:= CountSymbol + 1;
 
  if (CountNumber = Length(s)) then writeln('It is number');
  if (CountSymbol = Length(s)) then writeln('It is string');
  if (CountNumber > 0) and (CountSymbol > 0) then writeln('It is string with numbers');
end.

var num, s: string;
  CountNumber, CountSymbol, i: integer;
 
{Здесь должно быть имя обработчика. Например, Procedure Button1Click(...) - обработчик кнопки}
begin
  num:='1234567890';
  s:=Edit1.Text;
  CountNumber:=0; 
  CountSymbol:=0;
 
  for i:=1 to length(s) do
    if pos(s[i], num) <> 0 then
      CountNumber:= CountNumber + 1
    else
      CountSymbol:= CountSymbol + 1;
 
  if (CountNumber = Length(s)) then ShowMessage('It is number');
  if (CountSymbol = Length(s)) then ShowMessage('It is string');
  if (CountNumber > 0) and (CountSymbol > 0) then ShowMessage('It is string with numbers');
end;