Ошибка "предполагается порядковое выражение" - Turbo Pascal

Формулировка задачи:

написал программу шифрования и расшифрования текста.должна быть такая какой сейчас её представлю.но в предпоследнем действии выдет ошибку "предпологается порядковое выражение".подскажите что делать?в чем проблема?заранее спасибо,дело очень срочное(

program z;
 uses crt;
 var
  k,j,i,e,d,p,q,phi,n,l:integer;
  m,c:string;
  arr:array[0..100] of byte;
  begin
   clrscr;
   write('p=');
   readln(p);
   write('q=');
   readln(q);
   writeln('enter you message');
   readln(m);
   n:=p*q;
   writeln(n);
   phi:=(p-1)*(q-1);
   writeln(phi);
   for i:=2 to phi-1 do
    begin
     if not (phi mod i=0) then e:=i;
         for j:=2 to phi-1 do
           begin
                if e*j mod phi=1 then d:=j;
           end;
    end;
   writeln(e);
   writeln(d);
   for k:=0 to length(m)-1 do
       begin
            l:=ord(copy(m,k,1));
            c:=exp(ln(l)*e) mod n;
       end;
   writeln(c);
   readln;
 end.

Решение задачи: «Ошибка "предполагается порядковое выражение"»

Листинг программы

for k:=1 to length(m) do

Объяснение кода листинга программы

В данном коде происходит итерация по элементам массива m.

for k:=1 to length(m) - здесь используется цикл for, который начинается с k=1 и продолжается до k меньше или равно длине массива m (length(m)).
do - это ключевое слово, которое обозначает начало блока кода, выполняемого во время каждой итерации цикла.
k:=1 to length(m) - здесь происходит присвоение значения переменной k, равного 1, и продолжение до тех пор, пока k меньше или равно длине массива m.
length(m) - это функция, которая возвращает длину массива m.
m - это массив, который является объектом данных, используемых в данном коде.
for k:=1 to length(m) do - это полный код цикла, который будет выполняться для каждого элемента массива m.