Лабораторная работа № 13. Обработка строк Вариант 10. Pascal

I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
10.
Var S:string;
i,k:integer;
Begin
Writeln('Введите текст');
Readln(s);
      while Pos('а',s)<>0 do
      Begin
      k:=Pos('а',s);
      delete(s,k,1);
      End;
Writeln('Результат:');
writeln(s);
End.

II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
10. Дана строка. Выяснить, чего в нем больше: русских букв или цифр
var s:string;
i,s1,s2:integer;
begin
writeln('вводите строку');
readln(s);
      i:=1;
      while i<= length(s) do
            begin
            if s[i] in ____ then dec(s1);
      if ___(s[i])>=192 then dec(s2);
      end;
      if s1<s2 then writeln('цифр больше')
      else writeln('русских больше');
end.

III. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы.
Расшифровать сообщение, если известно, что слова в нем записаны наоборот.

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