Добрый вечер )) Помогите пожалуйста решит данную задачу)) Задача на множества: Дана строка из букв латинского алфавита, цифр, русских букв и знаков препинания. Вырезать из строки цифры и записать их а отдельную строку в том же порядке, в каком они были расположены в исходной. Вывести на печать содержимое полученных строк. Входные данные: исходная строкаVv1, 32qq1/4b5b45! Выходные данные: две полученные строки13214545 Vv, qq/bb45! За ране спасибо!!!!

Var
  s, sd, so: string;
  digits: set of 0..9;
  i: integer;

begin
  writeln(Введите текстовую строку);
  readln(s);
  digits := [0..9];
  sd := ; so := ;
  for i := 1 to length(s) do
    if s[i] in digits then sd := sd + s[i]
    else so := so + s[i];
  writeln(Результат:);
  writeln(sd);
  writeln(so)
end.

Тестовое решение:

Введите текстовую строку
Vv1, 32qq1/4b5b45!
Результат:
13214545
Vv, qq/bb!