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

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.