Brak odszyfrowania

program szyfra;
uses crt;
var
 e : integer;
 menu :char;
 n,m : byte;
 szyfron,liczba, b,c,polaczone : string;
begin
 n := 65;
 m := 90;
 REPEAT
 Writeln('a. Szyfrowanie.');
 Writeln('b. Deszyfrowanie.');
 Writeln('q. Koniec programu.');
 Readln(menu);
 Case menu of
		'a': Begin
             clrscr;
             Writeln('Podaj tekst do zaszyfrowania:');
             Readln(b);
             randomize;
             e := random(2000);
             szyfron := (Chr(Random(n-m+1)+m))+(Chr(Random(n-m+1)+m))+(Chr(Random(n-m+1)+m));
             Str(e,liczba);
             polaczone := liczba+szyfron;
             Writeln('Tekst w postaci zaszyfrowanej to: ', liczba+szyfron);
             Readln(liczba,szyfron);
             clrscr;
			 End;

		'b': Begin
             clrscr;
             Writeln('Podaj klucz do odszyfrowania:');
             Readln(c);
             if c = liczba+szyfron then Writeln('Zaszyfrowany tekst to: ',b) else Writeln('Bledny klucz!');
             Readln;
             clrscr;
		     End;
		Else 
			Begin 
			  {Alternatywny blok gdy nie znany znak}
			  {Ten blok else moze nie istniec}
			clrscr;
			If UpCase(menu) <> 'Q' Then 
			  Begin
				 WriteLn('Nie rozpoznany znak');
				 ReadLn;
                clrscr;
			  End;
			End;
		End;
	
	{Zakonczenie pentli REPEAT}
	Until (menu='q') or (menu='Q');
end.




{Var
 X:Byte;
 S:String;

Begin
  X:=48;
  Str(x,s);
  WriteLn(s);
End.
}

Until (menu='q') or (menu='Q');

var
  {...}
  n,m : byte;
  {...}
begin
  n := 65;
  m := 90;

 {...}