Вычислить 2^300 (найти ошибки в программе) - Pascal ABC

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

Помогите разобраться, почему не работает программа!! Задача: 2^300

var m: array[1..100] of integer;
  i,j,t,n,r, a: integer;
  begin
  m[1]:=1; n:=1; r:=0;
  for i:=1 to 300 do
  begin
  for j:=1 to n do
  begin
     n:=m[j]*2;
     m[j]:= n mod 10+r;
     r:=a div 10;
  end;
    if r>=0 then begin 
                      inc(n);
                      m[n]:=r;
                      r:=0;
                      end;
  end;
  for t:= n downto 1 do
  begin
  writeln(m[t]);
  end;
  end.

Решение задачи: «Вычислить 2^300 (найти ошибки в программе)»

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

const st=300;  {степень}
var s,tt : string;
    c : char;
    i,j,k,a,b,len:integer;
begin
s:='2'; {начальная строка}
for i:=1 to st-1 do{от 1 до 299}
 begin
  tt:=s;{запоминаем строку}
  len:=length(tt);{длина запомненной строки 1,2,3..}
  s:='';{сбрасываем строку}
  k:=0;
  for j:=1 to len do
   begin
    a:=(ord(tt[j])-48)*2+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 len div 2 do
 begin
  c:=s[len-i+1];
  s[len-i+1]:=s[i];
  s[i]:=c;
 end;
writeln(s);
end.

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

Переменная st устанавливается равной 300, что является степенью числа 2.
Объявляются переменные s, tt, c, i, j, k, a, b, len. Переменная s устанавливается равной строке 2, а остальные переменные инициализируются пустыми значениями.
Запускается цикл for, который выполняется 299 раз, начиная с 1 и до st-1. На каждой итерации цикла переменная s сбрасывается в пустую строку, а переменная tt запоминает текущую строку. Длина запомненной строки сохраняется в переменной len.
В каждой итерации цикла for внутри вложенного цикла for переменная a вычисляется как произведение текущего символа строки tt на 2, умноженное на текущую позицию k, и добавляется к переменной k. Последняя цифра вычисляется как остаток от деления a на 10, и сохраняется в переменной b. Затем k обновляется как целая часть от деления a на 10. Новая строка формируется путем добавления символа b+48 к переменной s. Если k не равно нулю, то к концу строки добавляется еще один перенос.
После завершения вложенного цикла for переменная len обновляется как длина строки s.
Запускается еще один цикл for, который переворачивает строку s. На каждой итерации цикла переменная c считывается из строки s, а s[i] обновляется как c.
Цикл for завершается, и результат вычисления 2^300 выводится на экран.