Строковые переменные - Pascal ABC

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

1. Определить сколько в тексте знаков препинания (: . , ?). 2. Задан текст. Удалить из текста цифру 7. 3. Задан текст. Распечатать номера позиций, на которых встречается знак ‘@’. 4. Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Определить количество слов и вывести только те слова, количество символов в которых нечетное. 5. С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить сумму всех четных цифр данного числа.

Ребят, брату в школе задают а, он меня просит помочь а я не знаю как решать. Помогите пожалуйста.

Решение задачи: «Строковые переменные»

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

var s:string;
    i,k:byte;
begin
 write('s = ');readln(s);k:=0;
 for i:=1 to length(s) do if s[i] in [':','.',',','?'] then inc(k);
 writeln(k)
end.

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

Переменная s объявляется как строка (var s: string;).
Переменные i и k объявляются как байты (var i, k: byte;).
Строка s записывается в консоль с помощью функции write ('s = ') и считывается с помощью функции readln ().
Переменная k инициализируется значением 0.
В цикле for происходит обработка каждого символа в строке s.
Если текущий символ в строке s равен одному из символов :',',','?', то переменная k увеличивается на единицу.
По завершении цикла, значение переменной k выводится на экран с помощью функции writeln ().