строки

[ronny137]

1)
ввести символьную строку и заменить все буквы "а" на буквы "б" и наоборот, как заглавные так и строчные
пример
ааббАБ
результат
ббааБА
2)
ввести имя файла и изменить его расширение на ехе
пример
qqq.com
результат
qqq.exe
3)
ввести путь к файлу и разобрать его выводя с каждой новой строки
пример
c/документы/вася
результат
с
документы
вася

[Шульц]

2)

a:='qqq.com';
a:=copy(a,1,length(a)-3)+'exe';

3)

var
a:string;
i,k:integer
begin
a:='c/документы/вася'
K:=1;
for i:=1 to length(a) do
 if copy(a,i,1)='/' then
 begin
  Memo1.Text:=copy(a,K,i-k);
K:=i;
 end;
end;

[psycho-coder]

1.

for i := 1 to Length(S) do
  case S[i] of
    'а', 'А': S[i] := Chr(Ord(S[i]) + 1);
    'б', 'Б': S[i] := Chr(Ord(S[i]) - 1);
  end;