Помогите пожалуйста: Напиши цифровой фильтр. На вход программе подается строка…

Помогите пожалуйста: Напиши цифровой фильтр. На вход программе подается строка символов. На выходе должны быть только ее цифры. Например, если на входе была строка He110, k177en! То на выходе должно быть 1101772. В строке, состоящей из слов, разделенных одним или несколькими пробелами, вывести второе слово. Например, если на вход программе подавалась строка Меня истина манит сияньемто на выходе будет истинаНа вход подается строка. Вывести часть входной часть строки. Часть строки задается номером первого символа и количеством символов.var s: string; n, k, i: integer; Begin readLn (s, n, k); for i: =n to n+k-1 do write (s[i]); End.2. На вход подается предложение на английском языке. Вывести все гласные строки в том порядке, в котором они встречались в строке. (ключевой фрагмент) for i: =1 to length (s) do if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y'] then write (s[i]); Варианты программы определения, является ли строка полиндромом-var s, s1: string; i: integer; Begin readLn (s); s1: ='; for i: =1 to length (s) do s1: =s[i]+s1; write ('строка '); if s1 <> s then write ('не '); writeLn ('является полиндромом'); End.var s: string; i, j: integer; Begin readLn (s); i: =1; j: =length (s); while (i < j) and (s[i]=s[j]) do begin inc (i); dec (j); end; write ('строка '); if s[i] <> s[j] then write ('не '); writeLn ('является полиндромом'); End.