Помогите пожалуйста создать программу на паскаль до конца.

Программа зависает и не хочет работать. Может я что то не то написала? Задача программы:
закодировать буквы, пример - A-111 B-112 C-113 D-121 E-122 F-123 G-131 H-132 I-133 M-211 И Т. Д.

uses crt;
var s: string;
s1: string;
k, l, a, i, j: integer;
m:array[1..27] of integer;
begin
s1:='abcdefghijklmnopqrstuvwxyz';
writeln('Vvedite slovo');
readln(s);
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
begin
m[l]:=k+j*10+i*100;
for i:=1 to length(s) do
for j:=1 to length(s1) do
if s1[j]=s then write(m[j]);
writeln;
readln;
end;
end.