вычислить 2 в 1000 степени

uses crt;
const base = 2;  {основание}
st = 1000;  {степень}
var
s,tt : string;
c : char;
i,j,k,a,b,len : integer;
begin
clrscr;
s := '2'; {начальная строка}
for i:=1 to st-1 do{от1 до 999}
  begin
   tt := s;{запоминаем строку}
   len := length(tt);{длина запомненной строки 1,2,3..}
   s := '';{сбрасываем строку}
   k := 0;
   for j:=1 to len do
    begin
    a := (ord(tt[j])-48)*base + k; {умножаем столбиком каждый раз новое число}
    b := a mod 10; {последняя цифра}
    k := a div 10; {перенос}
    s := s + chr(b+48);{новая строка без последнего переноса}
    end;
  if k <> 0 then s := s + chr(k+48);{добавляем в конец последний перенос}
  end;
len := length(s); {переворачиваем строку}
for i:=1 to trunc(len/2) do
 begin
  c := s[len-i+1];
  s[len-i+1] := s[i];
  s[i] := c;
 end;
writeln(s);
readln;
end.