[DillerInc]

В общем-то,вот некоторые намётки:

Код:

Function GetSymb(sbInp: String) : String;
{Эта кустарная функция должна преобразовывать определённые символы в нужные}
var
 k : Integer;
begin
 Result := sbInp;
 for k := 1 to Length(Result) do
begin
 if Result[k] = 'l' then
    Result[k] := Chr(Ord('ы'));
 if Result[k] = 'ь' then
    Delete(sbInp,Ord('ь'),1);
end;
end; // GetSymb

...но я никак не могу добиться,чтобы процедура Delete уничтожала символ "ь" .
Следовательно,в чём может быть ошибка?