delphi исходник шифр цезаря

Ответ от Rager[гуру]
тестировался на Pascal ABC и Pascal Abc.NET) должно работать и в делфи, только нужно переобьявить метки
program shifrovalsheg;
uses crt;
var a,b,b1,c,c1,c2,c3,c4,cod:string;pc,pc1,pc2,pc3,pc4,pcod,i,n,k:integer;label 1,2,3;
begin
{====================================================антураж====================================================}
{====================================================начало====================================================}
writeln('Выберите язык|Choose your language');
writeln(' 1 - Русский | 2- English (standard)');
writeln('=====================================================');
readln(b1);
writeln('=====================================================');
{====================================================про прогу====================================================}
if b1='1' then begin writeln('Перед вами самый простой шифровальщик на свете. Просто введите текст, который необходимо зашифроватьрасшифровать, выберите, какое действие необходимо выполнить и вуаля! =)');
writeln('Поддерживает русский и английский текст'); writeln('=====================================================');
end else begin writeln('This is a simple text coder. Just input the needed text and choose an action you need to do: code or uncode. =)');
writeln('It can code english and russian letters. ');writeln('=====================================================');end;
{====================================================меню язык====================================================}
1:if b1='1' then begin
;
writeln('Введите текст');
writeln('=====================================================');
{10}readln(a);
writeln('=====================================================');
writeln('Введите кодовое сочетание, запишите его, он понадобится для рашифровки. ');
writeln('=====================================================');
readln(cod);
writeln('=====================================================');
writeln('1 - Зашифровать 2 - Расшифровать');
writeln('=====================================================');
readln(b);
writeln('=====================================================');
writeln('Загрузка... '); end else begin
writeln('Input your text');
writeln('=====================================================');
{10}readln(a);
writeln('=====================================================');
writeln('Input a special number of letters (cod-word). Save it, it is needed for coding.');
writeln('=====================================================');
readln(cod);
writeln('=====================================================');
writeln('1 - Code 2 - Uncode');
writeln('=====================================================');
readln(b);
writeln('=====================================================');
Writeln('Loading...');
end;
pcod:=length(cod);
if a='ояе*у11' then goto 2;