Составить программу для изъятия всех цифр в ряде - Turbo Pascal

Формулировка задачи:

Составит программу для изъятия всех цифр в ряде

Решение задачи: «Составить программу для изъятия всех цифр в ряде»

Листинг программы

program string2;
var
  s:string;
  i:integer;
begin
  readln(s);
  for i:=length(s) downto 1 do
    if s[i] in ['0'..'9'] then
      delete(s,i,1);
  writeln('New string: ',s);
  readln;
end.

Объяснение кода листинга программы

Программа string2 на языке Turbo Pascal предназначена для удаления всех цифр из строки. В начале программы объявляются две переменные: s типа string (строка) и i типа integer (целое число). Затем с помощью функции readln считывается строка от пользователя. Далее, в цикле for, переменная i итерируется от длины строки s до 1. Если символ в строке соответствует цифре (от '0' до '9'), то с помощью функции delete этот символ удаляется из строки. По завершении цикла, с помощью функции writeln выводится измененная строка и приглашение на ввод новой строки. Программа заканчивается вызовом функции readln.