алгоритм возведения в степень

[Luni4ka]

Набросала программку "Алгоритм последовательного возведения в степень", но что-то не клеится. Срочно нужен свежий взляд. Помогите, пожалуйста, исправить ошибки.

program test;
uses crt;
var ds:array [1..255] of integer;
Abol,n,a,b,k,i,m,j,t:integer;
begin
clrscr;
write('Vvedite k=');
readln(k);
i:=0;
while k>=1 do
begin
i:=i+1;
ds[i]:=k mod 2;
k:=k div 2;
end;
m:=i;
for i:=m downto 1 do
write(ds[i]:3);
readln;
writeln('Vvedite a=',a);
readln(a);
writeln('Vvedite n=',n);
readln(n);
b:=EXP(k*LN(a)) mod n;
{b:=1;}
if k[i]=0 then readln(b);
Abol:=a;
if k[i]=1 then b:=a;
For j:=1 to t do
begin
Abol:=sqr(Abol) mod n;
if k[i]=1 then
b:=Abol*b mod n;
end;
readln(b);
end.

[Pein95]

сорь тот код что здесь был бред