[Savant]

DillerInc
Привет!
Ну что ж, подправим твою "кустарную" функцию:

Код:

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

На заметку: подучи функции Pos, Delete и Ord. Ты их неверно используешь
Можно и проще, не используя Result (в виде - procedure Convert(var sbInp: String); )

Кстать, а на php/perl такие задачи ваще халява: $your_text=preg_replace('ьl','ы',$your_text);