не могу понять как перевести слова в паскале

[dimass68]

копировал программу,
она была скопирована в ворд ,так и качал,сейчас не могу понять как перевести непонятные слова,помогите

writeln ('‚ўҐ¤ЁвҐ');
write ('Љ®«ЁзҐбвў® § ЇЁбҐ©=');

writeln('§* зҐ*Ёп н«Ґ¬Ґ*в®ў');

writeln('„«п Їа®¤®«¦Ґ*Ёп * ¦¬ЁвҐ Enter')
writeln('Њ…Ќћ');
writeln('1. Vvod elementov ');
writeln('2. Vyvod bazy');
Gotoxy (28,5);
writeln('3. Poisk');
Gotoxy (28,6);
writeln('4. Udalenie stroki');
Gotoxy(28,7);
writeln('5. ‚л室!');
Textcolor(white);
writeln('---------------------');

Gotoxy(2,9);
Textcolor(yellow);
write('‚ и ‚лЎ®а: ');
readln(proga);
End;
write(' ” ¬Ё«Ёп');
GotoXY(14,2);

Write(chr(179));
gotoxy(15,2);
write(' €¬п');
GotoXY(26,2);
Write(chr(179));
gotoxy(27,2);
write(' ЋвзҐбвў®');
write('„ в ஦¤.');
write('а б室');
writeln('„«п Їа®¤®«¦Ґ*Ёп * ¦¬ЁвҐ Enter');

[pashka_dos]

Есть Notepad++? Если нет обязательно скачай.
Открываешь эту прогу в меню выбираешь пункт Кодировки-Кодировки-Кириллица-OEM 866. Или просто открываешь в Делфи и копируешь.

[dimass68]

нет такой проги,качаю,благодарю,буду разбираться

[dimass68]

нее,не получается перевести((

[Hacker19_90]

да конечно!
Кодировка - набор сиволов ANSI - Кирилица - OEM 866

writeln ('Введите');
write ('Количество з писей=');

writeln('з* че*ия элеме*тов');

writeln('Для продолже*ия * жмите Enter')
writeln('МЕНЮ');
writeln('1. Vvod elementov ');
writeln('2. Vyvod bazy');
Gotoxy (28,5);
writeln('3. Poisk');
Gotoxy (28,6);
writeln('4. Udalenie stroki');
Gotoxy(28,7);
writeln('5. Выход!');
Textcolor(white);
writeln('---------------------');

Gotoxy(2,9);
Textcolor(yellow);
write('В ш Выбор: ');
readln(proga);
End;
write(' Ф милия');
GotoXY(14,2);

Write(chr(179));
gotoxy(15,2);
write(' Имя');
GotoXY(26,2);
Write(chr(179));
gotoxy(27,2);
write(' Отчество');
write('Д т рожд.');
write('р сход');
writeln('Для продолже*ия * жмите Enter');

[dimass68]

благодарю...очень помог))