Курсовая работа: Программа для перевода текстов с транслита

fori2:= 'А' to 'Я' do //а если не Ё, то проверяем все буквы по алгоритму приведенному выше

begin

if alph[i2] = st_mod then

begin

st_mod:= i2;

if (st_in[1] in lat_up) then st_in:= st_mod;

else st_in:= DownCase(st_mod);

find:= true;

exit;

end;

end;

end;

begin

MainForm.MemCyr.Clear; //очищаем поле для результата

max_l:= length(b_jo); //запоминаем длинну самой длинной буквы в алфавите

forch:= 'А' to 'Я' do //цикл по всем буквам

begin

tek_l:= length(alph[ch]);

if tek_l > max_l then max_l:= tek_l;

end;

for i1:= 0 to MainForm.MemLat.Lines.Count-1 do //цикл построчно

begin

str:= MainForm.MemLat.Lines[i1];

st2:= '';

str1:= '';

whilestr <> '' do //пока строка не пустая (обработанные символы будем удалять)

begin

f_ok:= false;

forj1:= max_ldownto 1 do //пытаемся собрать букву разной длины