В чем ошибка?

[yzen]

Даны натуральное число n, действительные числа a1,..., an. Вычислить:
|a1|+...+|an|

program dniwe;
uses crt;
var a:array[1..99] of integer;
    n,i:integer;
    s:real;
begin
clrscr;
repeat
write('Ââåäèòå ÷èñëî n,íå áîëüøå 100 ');
readln(n)
until n in[1..99];
s:=0;
for i:=1 to n do begin
                s:=s+Abs(a[i]);
                end;
writeln('Summa= ',s);
end.

[Mad_Cat]

В чем ошибка?

ввода массива нет! а так нормально)

[kuba1981]

тебе нужно массив инициалтзировать ты его объявил ,но он у тебя пустой вставь

PHP код:

for i:=1 to 99 do
a[i]:=i; 


[yzen]

Точно)
Спасибо