caesar chiper

program caesar_chiper;
uses crt;

var
   geser, i, kode : integer;
   teks : string;
   huruf : char;

begin
    clrscr;

    write('Masukkan kata : ');readln(teks);
    write('Geser         : ');readln(geser);

    for i := 1 to length(teks) do
    begin
        huruf := teks[i];
        kode := ord(huruf);
        kode := kode + geser;
        if kode > ord('Z') then
           kode := kode - ord('Z') + ord('A') - 1;
        huruf := chr(kode);
        teks[i] := huruf;
    end;

    writeln('Hasil : ',teks);

    readln;
end.