Строковый тип(PascalABCNET)

[FlayGlam]

Из строки удалить среднюю букву, если длина строки нечетная, если четная удалить две средние буквы. Заменить все вхождения в текст некоторой буквы на другую букву (их значения вводить с клавиатуры).

[newerow1989]

var s:string;
begin
   Write('s = '); Readln(s);
   If Length(s) mod 2=0 then
      Delete(s,Length(s) div 2,2) else
      Delete(s,1+Length(s) div 2,1);
   Writeln(s);
   Readln;
end.