Проблема в посимвольном переводе строки из цифр

//Const N=999999;
 
var
  S: string;
  X: longint; //результат
  i: integer; //цикл
 
begin
  write('S= '); readln(s);
  x := 0;
  
  for i := 1 to length(s) do {if X<N then} if s[i] in ['0'..'9'] then X := X * 10 + ord(s[i]) - ord('0');
  
  writeln(X)
end.

var S:string;
    X, i:integer; //результат, цикл
 
begin
 write('S= ');readln(s);
 try X:=strtoint(s) except s:='' end;
 
 for i:=1 to length(s) do writeln(s[i],' X ',power(10,length(s)-i),' = ',strtoint(s[i])*power(10,length(s)-i));
 
end.

var
  S: string;
  X, p, i: integer;  //результат, 10^степень, остаток от
 
begin
  write('S= '); readln(s);
  try X := strtoint(s) except X := 0 end;
  
  p := 0;
  while X > 0 do
  begin
    i := x mod 10; //последняя цифра (младший разряд)
    x := x div 10; //удаляем последнюю цифру
    writeln(i, ' X ', power(10, p), ' = ', i * power(10, p));
    p := p + 1;
  end
end.

  s:='7214'; t:=0;
  for i:=1 to Length(s) do Inc(t,(Ord(s[i])-Ord('0'))*Power(10,Length(s)-i);

  s:='7214'; t:=0;
  for i:=1 to Length(s) do t:=t*10+Ord(s[i])-Ord('0');

var str:string; j,number,digit,c:integer;
begin
  readln(str);
  number:=0;
  for j:=1 to length(str) do //либо for j:=1 to str.length do 
  begin
    val(str[j],digit,c); //преобразуем символ в число, либо так: digit:=str[j].ToDigit;
    number:=number*10+digit; //увеличиваем порядок и добавляем очередную цифру
  end;
  println(number);
end.

var str:string; j,number,digit,c:integer;
begin
  readln(str);
  number:=0;
  for j:=1 to length(str) do 
  begin
    val(str[j],digit,c); 
    number:=number*10+digit; //увеличиваем порядок и добавляем очередную цифру
  end;
  writeln(number);
end.