{* Преобразование строки символов *}

Unit PREOBRAZOVANIE_STROKI;
Interface
Implementation
Begin
 writeln('Программа преобразует строку таким образом, что цифры, которые находятся в слове, переносятся в конец строки без изменения порядка следования остальных символов.');
End.

{  Преобразование строки символов    }
Program prb_str;

Uses preobrazovanie_stroki.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a : String;
  b : String;
  z : byte; {процедура, которая определяет цифры в строке}
Var {* Объявление переменных *}
  a : String;
Var {* Необходимые переменные *}
  b : String;
Var {* Необходимые переменные *}
  z : byte);
Var {* В работе нам потребуются переменные: *}
  x          : Byte;
  Begin
  z := 1;
For x := 1 To LENGTH(a) Do; {* Переменная x увеличивается с 1 до LENGTH(a) *}
  {проверяем принадлежность символа к цифрам}
Begin
a[z] := a[x];
z := z + 1
End
Else b; {функция добавляет фифры в конец строки}
  Var {* Необходимые переменные *}
    a : String;
Var {* В работе нам потребуются переменные: *}
  b : String;
Var {* Необходимые переменные *}
  z : Byte);
Var {* В работе нам потребуются переменные: *}
  x : Byte;
  Begin
For x := 1 To  LENGTH(a) Do {* Увеличиваем x от 1 до LENGTH(a) с шагом 1 *}
  a[x + z - 1] := b[x];
New_String := a
End;
Begin
Clrscr; {* Очищаем экран *}
Write('Введите текст:');
Readln(a);
Num_detekt(a, b, z);
Write('Результат работы: ');
Writeln(New_String(a, b, z));
Readln; {* Ждем подтверждения пользователя *}
End......