Đây là một chương trình Pascal để mã hóa một xâu ký tự theo khóa đã cho:

```pascal
program GRCAE;

const
MAX = 100000;

var
n, m: integer;
S, S1, S2: string;
i, j, k, len: integer;
encodedS: array[1..MAX] of string;

procedure Swap(var a, b: char);
var
temp: char;
begin
temp := a;
a := b;
b := temp;
end;

procedure EncodeString(var str: string; key: string);
var
i, j, k: integer;
begin
k := 1;
for i := 1 to Length(str) do
begin
if (str[i] <> ' ') then
begin
str[i] := key[StrToInt(key[k])];
k := k + 1;
end;
end;
end;

begin
// Đọc dữ liệu từ file input
assign(input, 'GRCAE.INP');
reset(input);
readln(n, m);
readln(S);
close(input);

// Tách xâu S thành các xâu con có độ dài n
len := Length(S);
j := 1;
for i := 1 to len do
begin
if (i mod n = 0) or (i = len) then
begin
S1 := copy(S, j, i - j + 1);
j := i + 1;
encodedS[(i div n) + 1] := S1;
end;
end;

// Mã hóa từng xâu con theo khóa m
for k := 1 to (len div n) + 1 do
begin
EncodeString(encodedS[k], IntToStr(m));
end;

// Ghi kết quả vào file output
assign(output, 'GRCAE.OUT');
rewrite(output);
for k := 1 to (len div n) + 1 do
begin
writeln(encodedS[k]);
end;
close(output);
end.
```

Để chạy chương trình, bạn cần tạo một file input có tên "GRCAE.INP" và nhập dữ liệu theo định dạng đã cho. Sau đó, chạy chương trình và kết quả sẽ được ghi vào file output có tên "GRCAE.OUT".