Не выводит минимальный по модулю

[Ainur]

procedure TForm1.Button1Click(Sender: TObject);
var i,n,b,c,d,x:integer;
a:array of integer;
begin
SetLength(a,5);
\ a[0]:=5;
a[1]:=2;
a[2]:=6;
a[3]:=-3;
a[4]:=9;
for i:=1 to 5 do a[i]:=random(100)-50;
x:=a[1];
b:=a[1];
c:=a[1];
d:=a[1];
for i:=2 to 5 do
begin
if a[i]>x then x:=a[i];
if a[i]<b then b:=a[i];
if abs(a[i])>abs(c) then c:=a[i];
if abs(a[i])<abs(x) then d:=a[i];
end;
Edit2.text:='max='+IntToStr(x)+' min='+IntToStr(b)+' max_abs='+IntToStr(c)+' min_abs='+IntToStr(d);
Выходит ошибка когда ввожу числа!!! Помоги пожалуйста у меня экзамен!!!!

[Пепел Феникса]

какая ошибка?

[Ainur]

НЕ ВЫВОДИТ МИНИМАЛЬНЫЙ ПО МОДУЛЮ

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var i,n,b,c,d,x,k:integer;
a:array of integer;
begin
SetLength(a,5);
a[0]:=5;
a[1]:=2;
a[2]:=6;
a[3]:=-3;
a[4]:=9;
for i:=0 to 4 do a[i]:=random(100)-50;
k:=a[0]
for i:=0 to 4 do if a[i]>k then k:=a[i];
x:=k;
k:=a[0];
for i:=0 to 4 do if a[i]<k then k:=a[i];
b:=k;
k:=a[0];
for i:=0 to 4 do if abs(a[i])>abs(k) then k:=a[i];
c:=k;
k:=a[0];
for i:=0 to 4 do if abs(a[i])<abs(k) then k:=a[i];
x:=k;
Edit2.text:='max='+IntToStr(x)+' min='+IntToStr(b)+' max_abs='+IntToStr(c)+' min_abs='+IntToStr(d);

вроде так

у вас динамический массив и индексация идет с нуля