строчки pascal ABC

[программирование]

здраствуйте. Помогите, пожалуйста, написать программу.

задано строчку s='23D1K5'
1)убрать из рядка все буквы;
2)сделать значения рядка числом (тоесть буквы переобразовать в числа целого или действительного типа. Стандартная функция на Pascal - val);
3)вывести на екран подвоеное число.

заранее, спасибо, за ответы!!!

[Stilet]

убрать из рядка все буквы;

for i:=Length(s) downto 1 do if not (s in ['0'..'9']) then delete(s,i,1);

тоесть буквы переобразовать в числа целого или действительного типа

Это не возможно в данных условиях. Это все равно что заменить камасутру на учебник по гинекологии.

вывести на екран подвоеное число.

for i:=1 to Length(s) do  if s in ['0'..'9'] then write(s[i],s[i]);

[Poma][a]

 if s in ['0'..'9'] then

Наверное, лишнее, мы же за 1-ый проход всё это уберем..

Это не возможно в данных условиях. Это все равно что заменить камасутру на учебник по гинекологии.

А почему?
Автор под "буквами" подразумевал символы из диапазона ['0'..'9'].

[программирование]

а почему нельзя переобразовать этот рядок на числа целого или действительного типа. НО ведь же есть на языке Pascal стандартная функция val (формат функции val(st,v,cod)- переобразовувает значение рядка st в величину целого или действительного типа. Если cod равен нулю, то переобразование успешно).

Poma][a, спасибо вам огромное, за помощь.

задано число N=6971.
переобразовать число на рядок. Вывести каждый символ рядка на екран через пробел.

program zd;
uses crt;
var i:integer; s:string;
begin
     clrscr;
     writeln('ââåäèòå ðÿäîê');
     readln(s);
     for i:=Length(s) downto 1 do if not (s in ['0'..'9'])
     then delete(s,i,1);
     writeln(s,' ');
     readln;
     end;
end.

программа написана по совету здесь, но она не запускается на Pascal ABC
и пишет ошибку "Операция in неприменима к типам string и set of char", но и написать, что переменная s является типом integer я не могу, так как s - это рядок.

[BDA]

 not (s[i] in ['0'..'9'])

[Stilet]

Наверное, лишнее, мы же за 1-ый проход всё это уберем..

Так это другая задача.
Или я чего-то не понял?