помогите.паскаль

[milya49]

Дана строка символов, состоящая из букв и цифр. Вывести на экран число, состоящее их цифр данной строки.

[dr.Jekill]

Код: Выделить всё

var
  s: String;
  i: Integer;
begin
  Write('Stroka: ');
  ReadLn(s);
  WriteLn;
  for i:=1 to Length(s) do
    if s[i] in ['0'..'9'] then
      Write(s[i]);
  ReadLn;
end.