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

I. Дана программа, решающая определенную задачу.
Требуется: 1) исполнить программу при 2-3 наборах данных; 2) сформулировать условие задачи, которую решает данная программа.
7.
Var S:string;
i:integer;
Begin
Writeln('Введите текст');
Readln(s);
For i:=1 to length(s) do
      if s[i]='a' then s[i]:='b'
      else
      if s[i]='b' then s[i]:='a';
Writeln('Результат:');
writeln(s);
End.
II. Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски. Проверить работоспособность программы на 2-3 наборах тестовых данных.
7. Удалить среднюю букву при нечетной длине строки и две средние буквы при четной длине строки.
var s : string[100];
dln:
begin
writeln('введите строку');
readln(s);
 dln:= length(_) 
if _ mod 2 = 0 then
writeln(copy(s,1, (__ mod 2) - 1) , copy(s,(___) + 2, dln))
writeln(copy(_,_, length(s) mod 2) , copy(s,(dln div 2) + 2, __))
end.
III. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы.
Дан текст. Вывести на экран слова, содержащие N букв.
IV. Решить следующую задачу. Привести несколько тестовых наборов данных для проверки работоспособности программы:
Дано предложение, заканчивающиеся точкой. Вывести номер слова, в котором встречается хотя бы один символ Х.