Stack Overflow !, Лагает Массив типа String ( Опции

[MyNameIs]

Вот тест программы:

 unit mod5;
interface
uses crt, graph;
procedure polindr;

implementation
procedure polindr;
var d,m:integer;
    nn:char;
    nnn:boolean;
    a:array [1..100] of integer;
    b:array [1..100] of integer;
    cc:array [1..100] of real;
    e:array [1..100] of string;
    c:string;
    i,n:integer;
    j:real;
    s:string;
    x,y:integer;
begin
x:=200;y:=200;
nnn:=false;
{d:=detect;
m:=0;
initgraph (d,m,'c:\worker\pascal\bgi');}
i:=1;
n:=0;

{init}
for i:=1 to 100 do
 a[i]:=i;

{vozvedenie v kvadrat}
for i:=1 to 100 do
 b[i]:=a[i]*a[i];

{yslovie}
for i:=1 to 100 do
 begin
  str(b[i],c);
  if length©=1 then e[i]:=c;
  if (length©=2) and (c[1]=c[2]) then e[i]:=c;
  if (length©=3)  and (c[1]=c[3]) then e[i]:=c;
  if (length©=4) and (c[1]=c[4]) and (c[2]=c[3]) then e[i]:=c;
 end;

{stroka-chislo}
for i:=1 to 100 do
 begin
  val(e[i],a[i],n);
  if a[i]<>0 then cc[i]:=sqrt(a[i]);
 end;

{init}
for i:=1 to 100 do
begin
 if cc[i]<>0 then begin
  str(cc[i]0,e[i]);
  outtextxy(x,y,e[i]);
 end;
end;

readkey;
end;
end. 

Если прогу запускать не в модуле, то всё работает. А в модуле вылетает ошибка 'STACK OVERFLOW ERROR'. Как я понял, это переполняются стеки. Попробовал изменять размеры массивов. Ошибка исчезает, только при изменении размерности массива типа STRING e. Что делать, мне нужна размерность не меньше 100 :-(((

[volvo]

Зачем в Interface? Теперь этот массив будет доступен из основной программы... Я имел в виду перенести в Var раздела Implementation, только перед реализацией самой процедуры...