задача с вектором

[klarissa]

-----> люди добрые помогите с задачкой

дан вектор Х, составленный из 8 вещественных чисел.
Требуется домножить каждый элемент Х на квадрат наименьшего члена вектора, если х(индекс i) >= 0, и домножить на квадрат наибольшего, если х(индекс i) < 0

очень благодарна заранее

[puporev]

Program Klarissa;
uses crt;
var X:array[1..8] of real;
    i,j,imax,imin:integer;
    max,min:real;
begin
clrscr;
randomize;
for i:=1 to 8 do
   begin
     X[i]:=random(10)+random-5;
     write(X[i]:6:2);
   end;
readln;
min:=X[1];max:=X[1];
for i:=2 to 8 do
      begin
        if X[i]<min then min:=X[i];
        if X[i]>max then max:=X[i];
      end;
write('max=',max:5:2,' min=',min:5:2);
readln;
for i:=1 to 8 do
  begin
    if X[i]>=0 then X[i]:=X[i]*sqr(min)
    else X[i]:=X[i]*sqr(max);
  end;
for i:=1 to 8 do
write(X[i]:7:2);
readln;
end.

[klarissa]

спасиб огромное =)