Срочно Информатика, много баллов! Ребят нужно решения для 10 класса Пожалуйста, без...

Срочно Информатика, много баллов! Ребят нужно решения для 10 класса Пожалуйста, без сложных функций простыми командами для 10 класса readinteger , split и другие такие функции не приветствуются!простое решение без char и т дPascal ABC1) С клавиатуры вводится символьная строка. Определите, сколько раз встречается в строке каждый из входящих в нее символов.2) С клавиатуры вводится предложение, в котором слова разделены пробелами. Определите, сколько слов в этом предложении начинается и заканчивается на одну и ту же бук(ВНИМАНИЕ! НЕ НАДО ИСПОЛЬЗОВАТЬ ТАКИЕ ФУНКЦИИ КАК chr, ord,include!)

Ответ:

program qq;

var

s: string;

i, count: integer;

this_c: char;

begin

readln(s);

while (length(s) > 0) do begin

this_c := s[1];

count := 0;

while(pos(this_c, s) <> 0) do begin

delete(s, pos(this_c, s), 1);

count := count + 1;

end;

writeln('"', this_c, '": ', count);

end;

writeln;

end.

2-надо думать(