Почините, пожалуйста, код (шифрование)

program shifrator;
 
var
  А, Б, В, Г, Д, Е, Ж, З, И, Й, К, Л, М, Н, О, П, Р, С, Т, У, Ф, Х, Ц, Ч, Ш, Щ, Ы, Ю, Я, Ь, Ъ, Э: integer;
  a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32: integer;
  
  text, text2, text3, text4, text5, text6, text7, text8, text9, text10, text11: string[1];
  vihod: string[5];
 
label m;
begin
  А := 78135;
  Б := 12351;
  В := 75123;
  Г := 04123;
  Д := 89312;
  Е := 21351;
  Ж := 54312;
  З := 94713;
  И := 67813;
  Й := 46771;
  К := 76514;
  Л := 54123;
  М := 84616;
  Н := 87613;
  О := 78193;
  П := 52135;
  Р := 21356;
  С := 67135;
  Т := 11231;
  У := 00001;
  Ф := 12349;
  Х := 99999;
  Ц := 91823;
  Ч := 75414;
  Ш := 71665;
  Щ := 67173;
  Ы := 99416;
  Ю := 87913;
  Я := 31313;
  Ь := 90139;
  Ъ := 15351;
  Э := 18283;
  writeln('Здрасте, это шифратор от Flaim92');
  writeln('Ввододите по одной букве');
  writeln('Напишите ШИФРУЙ, чтобы прога вывела код');
  
  readln(a1);
  if a1 = 1337 then 
  begin
    writeln('Шифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a1 = А then text := '78135';
  if a1 = Б then text := '12351';
  if a1 = В then text := '75123';
  if a1 = Г then text := '04123';
  if a1 = Д then text := '89312';
  if a1 = Е then text := '21351';
  if a1 = Ж then text := '54312';
  if a1 = З then text := '94713';
  if a1 = И then text := '67813';
  if a1 = Й then text := '46771';
  if a1 = К then text := '76514';
  if a1 = Л then text := '54123';
  if a1 = М then text := '84616';
  if a1 = Н then text := '87613';
  if a1 = О then text := '78193';
  if a1 = П then text := '52135';
  if a1 = Р then text := '21356';
  if a1 = С then text := '67135';
  if a1 = Т then text := '11231';
  if a1 = У then text := '00001';
  if a1 = Ф then text := '12349';
  if a1 = Х then text := '99999';
  if a1 = Ц then text := '12349';
  if a1 = Ч then text := '75414';
  if a1 = Ш then text := '71665';
  if a1 = Щ then text := '67173';
  if a1 = Ы then text := '99416';
  if a1 = Ю then text := '87913';
  if a1 = Я then text := '31313';
  if a1 = Ь then text := '90139';
  if a1 = Ъ then text := '15351';
  if a1 = Э then text := '18283';
  readln(a2);
  if a2 = 1337 then 
  begin
    writeln('Шифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a1 = А then text := '78135';
  if a2 = Б then text2 := '12351';
  if a2 = В then text2 := '75123';
  if a2 = Г then text2 := '04123';
  if a2 = Д then text2 := '89312';
  if a2 = Е then text2 := '21351';
  if a2 = Ж then text2 := '54312';
  if a2 = З then text2 := '94713';
  if a2 = И then text2 := '67813';
  if a2 = Й then text2 := '46771';
  if a2 = К then text2 := '76514';
  if a2 = Л then text2 := '54123';
  if a2 = М then text2 := '84616';
  if a2 = Н then text2 := '87613';
  if a2 = О then text2 := '78193';
  if a2 = П then text2 := '52135';
  if a2 = Р then text2 := '21356';
  if a2 = С then text2 := '67135';
  if a2 = Т then text2 := '11231';
  if a2 = У then text2 := '00001';
  if a2 = Ф then text2 := '12349';
  if a2 = Х then text2 := '99999';
  if a2 = Ц then text2 := '12349';
  if a2 = Ч then text2 := '75414';
  if a2 = Ш then text2 := '71665';
  if a2 = Щ then text2 := '67173';
  if a2 = Ы then text2 := '99416';
  if a2 = Ю then text2 := '87913';
  if a2 = Я then text2 := '31313';
  if a2 = Ь then text2 := '90139';
  if a2 = Ъ then text2 := '15351';
  if a2 = Э then text2 := '18283';
  readln(a3);
  if a3 = 1337 then 
  begin
    writeln('Шифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a3 = Б then text3 := '12351';
  if a3 = В then text3 := '75123';
  if a3 = Г then text3 := '04123';
  if a3 = Д then text3 := '89312';
  if a3 = Е then text3 := '21351';
  if a3 = Ж then text3 := '54312';
  if a3 = З then text3 := '94713';
  if a3 = И then text3 := '67813';
  if a3 = Й then text3 := '46771';
  if a3 = К then text3 := '76514';
  if a3 = Л then text3 := '54123';
  if a3 = М then text3 := '84616';
  if a3 = Н then text3 := '87613';
  if a3 = О then text3 := '78193';
  if a3 = П then text3 := '52135';
  if a3 = Р then text3 := '21356';
  if a3 = С then text3 := '67135';
  if a3 = Т then text3 := '11231';
  if a3 = У then text3 := '00001';
  if a3 = Ф then text3 := '12349';
  if a3 = Х then text3 := '99999';
  if a3 = Ц then text3 := '12349';
  if a3 = Ч then text3 := '75414';
  if a3 = Ш then text3 := '71665';
  if a3 = Щ then text3 := '67173';
  if a3 = Ы then text3 := '99416';
  if a3 = Ю then text3 := '87913';
  if a3 = Я then text3 := '31313';
  if a3 = Ь then text3 := '90139';
  if a3 = Ъ then text3 := '15351';
  if a3 = Э then text3 := '18283';
  readln(a4);
  if a4 = 1337 then 
  begin
    writeln('Шифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a4 = Б then text4 := '12351';
  if a4 = В then text4 := '75123';
  if a4 = Г then text4 := '04123';
  if a4 = Д then text4 := '89312';
  if a4 = Е then text4 := '21351';
  if a4 = Ж then text4 := '54312';
  if a4 = З then text4 := '94713';
  if a4 = И then text4 := '67813';
  if a4 = Й then text4 := '46771';
  if a4 = К then text4 := '76514';
  if a4 = Л then text4 := '54123';
  if a4 = М then text4 := '84616';
  if a4 = Н then text4 := '87613';
  if a4 = О then text4 := '78193';
  if a4 = П then text4 := '52135';
  if a4 = Р then text4 := '21356';
  if a4 = С then text4 := '67135';
  if a4 = Т then text4 := '11231';
  if a4 = У then text4 := '00001';
  if a4 = Ф then text4 := '12349';
  if a4 = Х then text4 := '99999';
  if a4 = Ц then text4 := '12349';
  if a4 = Ч then text4 := '75414';
  if a4 = Ш then text4 := '71665';
  if a4 = Щ then text4 := '67173';
  if a4 = Ы then text4 := '99416';
  if a4 = Ю then text4 := '87913';
  if a4 = Я then text4 := '31313';
  if a4 = Ь then text4 := '90139';
  if a4 = Ъ then text4 := '15351';
  if a4 = Э then text4 := '18283';
  readln(a5);
  if a5 = 1337 then 
  begin
    writeln('Зашифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a5 = Б then text5 := '12351';
  if a5 = В then text5 := '75123';
  if a5 = Г then text5 := '04123';
  if a5 = Д then text5 := '89312';
  if a5 = Е then text5 := '21351';
  if a5 = Ж then text5 := '54312';
  if a5 = З then text5 := '94713';
  if a5 = И then text5 := '67813';
  if a5 = Й then text5 := '46771';
  if a5 = К then text5 := '76514';
  if a5 = Л then text5 := '54123';
  if a5 = М then text5 := '84616';
  if a5 = Н then text5 := '87613';
  if a5 = О then text5 := '78193';
  if a5 = П then text5 := '52135';
  if a5 = Р then text5 := '21356';
  if a5 = С then text5 := '67135';
  if a5 = Т then text5 := '11231';
  if a5 = У then text5 := '00001';
  if a5 = Ф then text5 := '12349';
  if a5 = Х then text5 := '99999';
  if a5 = Ц then text5 := '12349';
  if a5 = Ч then text5 := '75414';
  if a5 = Ш then text5 := '71665';
  if a5 = Щ then text5 := '67173';
  if a5 = Ы then text5 := '99416';
  if a5 = Ю then text5 := '87913';
  if a5 = Я then text5 := '31313';
  if a5 = Ь then text5 := '90139';
  if a5 = Ъ then text5 := '15351';
  if a5 = Э then text5 := '18283';
  readln(a6);
  if a6 = 1337 then 
  begin
    writeln('Зашифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a6 = Б then text6 := '12351';
  if a6 = В then text6 := '75123';
  if a6 = Г then text6 := '04123';
  if a6 = Д then text6 := '89312';
  if a6 = Е then text6 := '21351';
  if a6 = Ж then text6 := '54312';
  if a6 = З then text6 := '94713';
  if a6 = И then text6 := '67813';
  if a6 = Й then text6 := '46771';
  if a6 = К then text6 := '76514';
  if a6 = Л then text6 := '54123';
  if a6 = М then text6 := '84616';
  if a6 = Н then text6 := '87613';
  if a6 = О then text6 := '78193';
  if a6 = П then text6 := '52135';
  if a6 = Р then text6 := '21356';
  if a6 = С then text6 := '67135';
  if a6 = Т then text6 := '11231';
  if a6 = У then text6 := '00001';
  if a6 = Ф then text6 := '12349';
  if a6 = Х then text6 := '99999';
  if a6 = Ц then text6 := '12349';
  if a6 = Ч then text6 := '75414';
  if a6 = Ш then text6 := '71665';
  if a6 = Щ then text6 := '67173';
  if a6 = Ы then text6 := '99416';
  if a6 = Ю then text6 := '87913';
  if a6 = Я then text6 := '31313';
  if a6 = Ь then text6 := '90139';
  if a6 = Ъ then text6 := '15351';
  if a6 = Э then text6 := '18283';
  readln(a7);
  if a7 = 1337 then 
  begin
    writeln('Зашифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
  end;
  if a7 = Б then text7 := '12351';
  if a7 = В then text7 := '75123';
  if a7 = Г then text7 := '04123';
  if a7 = Д then text7 := '89312';
  if a7 = Е then text7 := '21351';
  if a7 = Ж then text7 := '54312';
  if a7 = З then text7 := '94713';
  if a7 = И then text7 := '67813';
  if a7 = Й then text7 := '46771';
  if a7 = К then text7 := '76514';
  if a7 = Л then text7 := '54123';
  if a7 = М then text7 := '84616';
  if a7 = Н then text7 := '87613';
  if a7 = О then text7 := '78193';
  if a7 = П then text7 := '52135';
  if a7 = Р then text7 := '21356';
  if a7 = С then text7 := '67135';
  if a7 = Т then text7 := '11231';
  if a7 = У then text7 := '00001';
  if a7 = Ф then text7 := '12349';
  if a7 = Х then text7 := '99999';
  if a7 = Ц then text7 := '12349';
  if a7 = Ч then text7 := '75414';
  if a7 = Ш then text7 := '71665';
  if a7 = Щ then text7 := '67173';
  if a7 = Ы then text7 := '99416';
  if a7 = Ю then text7 := '87913';
  if a7 = Я then text7 := '31313';
  if a7 = Ь then text7 := '90139';
  if a7 = Ъ then text7 := '15351';
  if a7 = Э then text7 := '18283';
  readln(a8);
  if a8 = 1337 then 
  begin
    writeln('Зашифрованный текст: ');
    writeln('                      ');
    writeln('                      ');
    writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
    writeln('                       ');
    writeln('                       ');
    
    if a8 = Б then text8 := '12351';
    if a8 = В then text8 := '75123';
    if a8 = Г then text8 := '04123';
    if a8 = Д then text8 := '89312';
    if a8 = Е then text8 := '21351';
    if a8 = Ж then text8 := '54312';
    if a8 = З then text8 := '94713';
    if a8 = И then text8 := '67813';
    if a8 = Й then text8 := '46771';
    if a8 = К then text8 := '76514';
    if a8 = Л then text8 := '54123';
    if a8 = М then text8 := '84616';
    if a8 = Н then text8 := '87613';
    if a8 = О then text8 := '78193';
    if a8 = П then text8 := '52135';
    if a8 = Р then text8 := '21356';
    if a8 = С then text8 := '67135';
    if a8 = Т then text8 := '11231';
    if a8 = У then text8 := '00001';
    if a8 = Ф then text8 := '12349';
    if a8 = Х then text8 := '99999';
    if a8 = Ц then text8 := '12349';
    if a8 = Ч then text8 := '75414';
    if a8 = Ш then text8 := '71665';
    if a8 = Щ then text8 := '67173';
    if a8 = Ы then text8 := '99416';
    if a8 = Ю then text8 := '87913';
    if a8 = Я then text8 := '31313';
    if a8 = Ь then text8 := '90139';
    if a8 = Ъ then text8 := '15351';
    if a8 = Э then text8 := '18283';
    readln(a9);
    if a9 = 12345 then 
    begin
      writeln('Расшифрованный текст: ');
      writeln('                      ');
      writeln('                      ');
      writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
      writeln('                       ');
      writeln('                       ');
      
      if a9 = Б then text9 := '12351';
      if a9 = В then text9 := '75123';
      if a9 = Г then text9 := '04123';
      if a9 = Д then text9 := '89312';
      if a9 = Е then text9 := '21351';
      if a9 = Ж then text9 := '54312';
      if a9 = З then text9 := '94713';
      if a9 = И then text9 := '67813';
      if a9 = Й then text9 := '46771';
      if a9 = К then text9 := '76514';
      if a9 = Л then text9 := '54123';
      if a9 = М then text9 := '84616';
      if a9 = Н then text9 := '87613';
      if a9 = О then text9 := '78193';
      if a9 = П then text9 := '52135';
      if a9 = Р then text9 := '21356';
      if a9 = С then text9 := '67135';
      if a9 = Т then text9 := '11231';
      if a9 = У then text9 := '00001';
      if a9 = Ф then text9 := '12349';
      if a9 = Х then text9 := '99999';
      if a9 = Ц then text9 := '12349';
      if a9 = Ч then text9 := '75414';
      if a9 = Ш then text9 := '71665';
      if a9 = Щ then text9 := '67173';
      if a9 = Ы then text9 := '99416';
      if a9 = Ю then text9 := '87913';
      if a9 = Я then text9 := '31313';
      if a9 = Ь then text9 := '90139';
      if a9 = Ъ then text9 := '15351';
      if a9 = Э then text9 := '18283';
      readln(a10);
      if a10 = 1337 then 
      begin
        writeln('Зашифрованный текст: ');
        writeln('                      ');
        writeln('                      ');
        writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
        writeln('                       ');
        writeln('                       ');
        goto m;
        if a9 = Б then text9 := '12351';
        if a10 = В then text10 := '75123';
        if a10 = Г then text10 := '04123';
        if a10 = Д then text10 := '89312';
        if a10 = Е then text10 := '21351';
        if a10 = Ж then text10 := '54312';
        if a10 = З then text10 := '94713';
        if a10 = И then text10 := '67813';
        if a10 = Й then text10 := '46771';
        if a10 = К then text10 := '76514';
        if a10 = Л then text10 := '54123';
        if a10 = М then text10 := '84616';
        if a10 = Н then text10 := '87613';
        if a10 = О then text10 := '78193';
        if a10 = П then text10 := '52135';
        if a10 = Р then text10 := '21356';
        if a10 = С then text10 := '67135';
        if a10 = Т then text10 := '11231';
        if a10 = У then text10 := '00001';
        if a10 = Ф then text10 := '12349';
        if a10 = Х then text10 := '99999';
        if a10 = Ц then text10 := '12349';
        if a10 = Ч then text10 := '75414';
        if a10 = Ш then text10 := '71665';
        if a10 = Щ then text10 := '67173';
        if a10 = Ы then text10 := '99416';
        if a10 = Ю then text10 := '87913';
        if a10 = Я then text10 := '31313';
        if a10 = Ь then text10 := '90139';
        if a10 = Ъ then text10 := '15351';
        if a10 = Э then text10 := '18283';
        readln(a11);
        if a11 = 1337 then 
        begin
          writeln('Зашифрованный текст: ');
          writeln('                      ');
          writeln('                      ');
          writeln(text + text2 + text3 + text4 + text5 + text6 + text7 + text8 + text9 + text10);
          writeln('                       ');
          writeln('                       ');
          goto m;
        end;
        m: writeln('Что бы выйти напишите в консоль   Y   ' );
        readln(vihod);
        
      end;
    end;
  end;
end.