turboPascal - tabelaryzacja n wyrazow ciagu

Witam.

Chcialbym stabelaryzować N-wyrazow ciagu oraz obliczyc jego sume:

kod programu wyglada nastepujaco:

program potegowanie;
uses crt,graph;

var i,p,w:integer;
    n:word;
    suma:real;
    wyraz:array[1..256] of real;

function potega(p,w:integer):real;
begin
potega:=exp(w*ln(p));
end;

begin
clrscr;

write('Podaj ilosc wyrazow ciagu: ');
readln(n);

for i:=1 to n do
begin

wyraz[i]:=((potega(i,100)) * (potega(99,i))) / (potega(100,i));
suma:=suma+wyraz[i];

writeln(i,'. ',wyraz[i]:5:2);
writeln(suma:4:2);
end;

readkey;

end.

Jednak juz dla n>2 wyskakuje blad "Floating point overflow" czyli "blad w obliczeniach"..
Moze zmienic typy zmiennych lub cos innego..
Prosze o sugestie.
Dziekuje!

2^100 to już trochę dużo :P, spróbuj typu extended a jak nie to szukaj na necie implementacji dużych liczb (tu też kiedyś było)