Ошибка в процедуре замены символов.

[PAvl]

Процедура должна заменить русские символы типа А,а,С,с,Х,х на латинские A,a,C,c,X,x в строке считанной из файла. Написана вроде бы верно, однако видимых изменений не производит(основываясь на выводимых кракозябрах вместо латиницы в нужных местах)
Видел похожие темы, однако они не смогли помочь разрешить мне данную проблему.

const Abeng:char='A'; Abrus:=char='А';
procedure shift(sinp:str_255;var sout:str_255;const Abeng,Abrus:char);
var i:integer
begin
 sout:='';
 while pos(Abrus,sinp)<>0 do
 begin
  i:=pos(Abirus,sinp);
  delete(sinp,i,1);
  insert(Abeng,sinp,1);
 end;
 sout:=sinp;
end;

в программе вызывается как shift(t_str,shift_str,Abeng,Abrus)

[puporev]

однако видимых изменений не производит

Интересно, а как Вы увидите что А изменилась на А?

[Serge_Bliznykov]

вроде бы всё верно у Вас написано. (если не брать во внимание, что удобнее искать не по одному символу, а задавать что на что менять строчками)

а нет. есть ошибка в коде. что ж Вы английскую буковку в начало строки лепите?!
надо в то место, откуда удалили русскую!

  insert(Abeng,sinp,i);

если не поможет, то я рискну предположить, что у Вас в тексте русский текст не в той кодировке (скорее всего программу Вы пишете в TurboPascal - русские буквы в кодировке 866 (она же OEM) там русская А имеет hex код 80h, а текст в кодировке Windows (это кодировка 1251, она же ANSI), в этой кодировке большая русская буква А имеет код 0C0h)
посмотрите коды букв в Hex-просмотрщике (ну или запакуйте пример текста в архив и архив прикрепите сюда, на форум, или выложите на файлообменник, а сюда ссылочку на скачивание).