{* Получение строки цифр и букв из данной строки *}

Unit Z_SET1;
Interface
Implementation
Begin
 writeln('Получение строки цифр и букв, из данной строки');
End.

Program z_set1;

Uses z_set1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  ch : Set Of char;
  s  : String;
  s1 : String;
  s2 : String;
  i  : byte;
Begin
  clrscr; {Присвоение множеству значения}
  ch := ['0'..'9']; {/Присвоение множеству значения}
  {Ввод строки текста}
  writeln('Введите строку');
  readln(s); {/Ввод строки текста}
  s1 := '';
  s2 := ''; {Разбор данной строки}
  For i := 1 To length(s) Do {* Увеличиваем i от 1 до length(s) с шагом 1 *}
    If s[i] In ch Then
      s1 := s1 + s[i]
    Else s2 := s2 + s[i]; {/Разбор данной строки}
      {Вывод результатов}
  writeln('Строка только из цифр');
  writeln(s1);
  writeln('Строка только из букв');
  writeln(s2); {/Вывод результатов}
  readln; {* Приостановка программы. Ожидание Enter *}
End.