Простенькая задачка - удалить из строки все не цифровые символы

[dimon_snake]

Здравствуйте
Помогите пожалуйста с решением задачи
Вроде простая, но что-то пошло не так
Дана строка, нужно убрать с неё все НЕ цифры, оставить только цифры. Гарантировано, что там есть хотя бы одна цифра.
То есть
Дана строка
eh65jk9dn1
Вывести надо
6591
Я делал так

var
s:string;
i,k:integer;
begin
Readln(s);
for k:=1 to Length(s) do
for i:=1 to Length(s) do
begin
  if ((s[i]<>'1') or (s[i]<>'2') or (s[i]<>'3') or (s[i]<>'4') or (s[i]<>'5') or (s[i]<>'6') or (s[i]<>'7') or (s[i]<>'8') or (s[i]<>'9') or (s[i]<>'0'))
  then begin
  delete(s,i,1);
  break;
  end;
end;
Writeln(s);
Readln;
end.

Но в итоге получаю пустую строку..

[Serge_Bliznykov]

неверная логика.
s[i] не равно 1 ИЛИ s[i] не равно 2
допустим,
у нас в s[i] цифра 1
тогда первое условие (s[i] не равно 1) - это ложь
второе условие (s[i] не равно 2) - это истина

ложь ИЛИ истина = ИСТИНА

рассмотрите другие случаи, поймёте, что подобное логическое ВСЕГДА даст истину, для любого знака (хоть буква, хоть цифра, хоть что)!

И это главная ошибка.

вторая ошибка.
зачем вам ДВА ЦИКЛА

for k:=1 to Length(s) do
for i:=1 to Length(s) do

цикл по K зачем? где Вы используете K ?

ответ - он НЕ НУЖЕН.

ну и третье. и последнее.
если задача стоит просто вывести цифры из строки, то это проще сделать так:

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

[dimon_snake]

Да, действительно, все намного проще
Большое спасибо.

[Serge_Bliznykov]

да, если задача стоит всё же удалять НЕ цифровые символы из строки,
то я бы написал так:

begin
  Readln(s);
  for i:=Length(s) downto 1 do
     if Not(s[i] in ['0'..'9']) then Delete(s[i],i,1);
  WriteLn(s);
end.

[Вадим Мошев]

Кстати, небольшая модификация от меня. Можно не использовать множества - вместо них воспользоваться строковым литералом, в котором записаны все символы от 0 до 9. Таким образом, строка из кода Сергея примет вид:

if pos( s[i], '1234567890')  = 0 then Delete(s[i],i,1);

[Serge_Bliznykov]

кстати, я опечатку в Delete допустил.
разумеется, там должно быть Delete(s,i,1)

Можно не использовать множества - вместо них воспользоваться строковым литералом, в котором записаны все символы от 0 до 9.

ну тогда ещё один вариант

if (s[i]<'0') or (s[i]>'9') then Delete(s, i, 1);