Výsledna aplikácia v Pascale

Program sifra;
Uses Crt;

Var s:string;
    c,x:char;

function trans (z:string) : string;

var i:integer;
    p:char;


begin

 for i:= 1 to (length (z) div 2) do

  begin

   p:= z[i*2];

   z[i*2]:= z[i*2-1];

   z[i*2-1]:= p;

  end;

 writeln (z);


end;

function cezar (z:string) : string;

var a:integer;
begin

for a:= 1 to length (z) do

begin

z[a]:= chr(((ord(z[a])-97+3)mod 26)+97)

end;

writeln (z);

end;

begin
clrscr;

 Repeat
  Writeln;
  Writeln('Ak chces vyskusat transpoziciu stlac a.');
  writeln('ak chces vyskusat ceasarovu sifru stlac b. ');
  readln(c);

  if c = 'a' then begin
                  writeln('zadaj slovo na sifrovanie');
                  readln(s);
                  trans(s);
                  end;

    if c = 'b' then begin
                  writeln('zadaj slovo na sifrovanie');
                  readln(s);
                  cezar(s);
                  end
                  else writeln ('zadal si zle pismeno');



  Write('Opakovat? A/N ');
   x:= Readkey;
 Until (x in ['N','n']);
End.