Дано слово s1 получить слово s2 образованное нечетными буквами слова s1 - Pascal

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

помогите решить задачи: 1)дано слово s1 получить слово s2 образованное нечетными буквами слова s1 2)получить строку состоящую из пяти символов "*" 3)дан текст сколько раз в нем встречается символ "+" и "*" 4)дан текст,напечатать все имеющиеся в нем цифры 5)дан текст в нем несколько цифр получить число образованное этими цифрами 6)дан текст найти его максимальную цифру

Решение задачи: «Дано слово s1 получить слово s2 образованное нечетными буквами слова s1»

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

uses crt;
var st:string;
    i,k,n,s:byte;
begin
clrscr;
writeln('Vvedite text');
readln(st);
k:=0;
for i:=1 to length(st) do
    if st[i]='+' then k:=k+1;
writeln('"+" v texte:',k:3);
n:=0;
for i:=1 to length(st)do
    if st[i]='*' then n:=n+1;
writeln('"*" v texte:',n:3);
s:=0;
s:=k+n;
writeln('"+" i "*" v texte:',s:3);
readln;
end.

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

В первой строке кода используется библиотека crt, которая является стандартной для языка Pascal и используется для ввода-вывода данных.
Переменная st инициализируется как строка, которую пользователь должен ввести.
Следующая строка считывает введенное значение и сохраняет его в переменной st.
Затем идет цикл for, который начинается с i=1 и продолжается до длины строки st (используется оператор to length для получения длины строки).
Внутри цикла проверяется, является ли текущий символ в строке st плюсом (+). Если это так, то переменная k увеличивается на единицу.
После завершения внутреннего цикла выводится значение переменной k.
Затем начинается еще один цикл for, аналогичный предыдущему, но на этот раз он проверяет символы звездочки (*). Если такой символ найден, то переменная n увеличивается на единицу.
По завершении внутреннего цикла выводится значение переменной n.
Затем вычисляется сумма переменных k и n и присваивается переменной s.
Наконец, выводится значение переменной s.
Конец программы.