Ошибка "предполагается порядковое выражение" - 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.

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

textual
for k:=1 to length(m) do

8   голосов, оценка 4.375 из 5


СОХРАНИТЬ ССЫЛКУ