Программа транслит

[[Smarik]]

program translit;
uses crt;
var
s:string;
function upstring (var s:string):string;
const rus:string='а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я';
eng:string='a,b,v,g,d,e,e,zh,z,i,i,k,l,m,n,o,p,r,s,t,u,f,h,c,ch,sh,sch,*,y,*,ye,yu,ya';
var
i,n:integer;
begin
for i:=1 to length(s) do begin
s[i]:=upcase(s[i]);
n:=pos(s[i],rus);
if n>0 then s[i]:=eng[n];
end;
END;
begin
clrscr;
write('Введите строку:');
readln(s);
writeln(upstring(s));
readln;
end.

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

[_Dmitry]

1. upcase с русскими буквами не работает.
2. s[i]:=eng[n] здесь i и n номера символов в строках, вы один символ строки s меняете на один символ из строки eng. Если английский аналог состоит из нескольких символов, то надо менять код. И зачем вы в строки rus и eng запятых натолкали?
3. writeln(upstring(s)) вы печатаете значение функции, которая ничего не возвращает. Где функции присваивается значение?

[puporev]

1.Объясните, что должна делать ваша программа, приведите задание.
2.Зачем в константах сторокового типа куча запятых.
3.Зачем английские буквы переводить в верхний регистр.

[[Smarik]]

примнр работы программы:
Пишешь Привет в ответ должно прийти Privet
запятые потому что не знаю как отделить значения, например буква ш состоит из 2 англ букв...возможно не тот способ взял, с нуля было делать лень, поетому взял похожую задачу которая лежла на пк и быстро попробовал переделать.

[B_N]

Сообщение от [Smarik]

запятые потому что не знаю как отделить значения,

А двумерные массивы для чего, спрашивается?

[pascal65536]

Сообщение от [Smarik]

примнр работы программы:
Пишешь Привет в ответ должно прийти Privet
запятые потому что не знаю как отделить значения, например буква ш состоит из 2 англ букв...возможно не тот способ взял, с нуля было делать лень, поетому взял похожую задачу которая лежла на пк и быстро попробовал переделать.

А если сделать через case.
Прогоним каждую букву русского слова, а английское слово будем постепенно удлиннять.