Mã hóa xâu

Đề bài:Tập hợp các chữ cái tiếng Anh bao gồm 26 chữ cái được đánh số thứ tự lần lượt từ 0 đến 25. Quy tắc mã hóa một kí tự như sau:
1. Tìm số thứ tự tương ứng của kí tự
2. Tăng giá trị số này lên 5
3.Tìm số dư trong phép chia số này cho 26
4. Tra ngược bảng chữ cái thu được kí tự tương ứng
Hãy viết chương trình nhập vào một xâu và sử dụng quy tắc mã hóa trên để mã hóa xâu kí tự đó.


Code:

var s: string;
        j:byte;
function mahoa(a:char): char;
        var t: array[0..25] of char;
            ch: char;
            x,i: byte;
        begin
                i:=0;
                for ch:='a' to 'z' do
                        begin
                        t[i]:=ch;
                        inc(i);
                        end;
                for i:=0 to 25 do
                        if t[i]=a then
                                begin
                                x:=i;
                                break;
                                end;
                i:=(x+5) mod 26;
                mahoa:= t[i];
        end;
begin
        write(' Nhap xau can ma hoa: ');
        readln(s);
        writeln(' Xau ma hoa la:');
        for j:=1 to length(s) do
                write(mahoa(s[j]));
        readln
end.