Вводится строка из букв и цифр. Построить новую строку только из цифр

Задача

Вводится строка из букв и цифр. Построить новую строку только из цифр (порядок не меняется).

Решение

Перебираем заданную строку посимвольно в цикле. Если текущий символ является символом цифры, добавляем его в конец новой строки. 

Символы цифр имеют коды от 48 до 57 включительно по таблице символов. Чтобы получить код символа, его надо передать в функцию ord.

var
    s, s_new: string;
    i, len: byte;
 
begin
    readln(s);
    len := length(s);
 
    s_new := '';
    for i:=1 to len do 
        if (ord(s[i]) > 47) and (ord(s[i]) < 58) then 
            s_new := s_new + s[i];
 
    writeln(s_new);
end.

Пример выполнения:

next 4 po8p red0
480