Вычислить квадрат разности между минимальным и максимальным элементом массива и записать его на место последнего отрицательного элемента

program S4;
const nmax=10;
var
    x: array[1..nmax] of Real;
    n:byte;
    i,a: integer;
    min, max, s:Real;
begin
cls;
write('Введите размер массива до ',nmax,' n=');
readln(n);
begin
  Writeln('Хотя бы один элемент должен быть отрицательным');
  For i:=1 to n do
    begin
      Writeln('Введите элемент массива ', i);
      Readln(x[i]);
    end;
  min:=x[1];
  max:=x[1];
    end;
Writeln('Массив до изменения: ');
  For i:=1 to n do Writeln('[',i,'] ',x[i]:6:2);
  For i:=1 to n do
    begin
      if x[i]<min then min:=x[i];
      if x[i]>max then max:=x[i];
    end;
  s:= sqr(max-min);
 
for i:=1 to N do
    if x[i]<0 then
       x[i]:= s;
       writeLn;
       Writeln('Массив после изменения: ');
  For i:=1 to n do Writeln('[',i,'] ',x[i]:6:2);
  For i:=1 to n do
end.

program S4;
const nmax=10;
var
    x : array[1..nmax] of Real;
    n : byte;
    i,neg : integer;
    min, max, s : Real;
begin
  cls;
  write('Введите размер массива до ',nmax,' n=');
  readln(n);
 
  Writeln('Введите элементы массива');
  Writeln('Хотя бы один элемент должен быть отрицательным');
  For i:=1 to n do
    Readln(x[i]);
  min:=x[1];
  max:=x[1];
 
  For i:=2 to n do
    begin
      if x[i]<min then min:=x[i];
      if x[i]>max then max:=x[i];
    end;
  Writeln('Максимальный элемент= ',max);
  Writeln('Минимальный элемент= ',min);
  s:= sqr(max-min);
 
  neg:=0; {здесь будет индекс последнего отрицательного элемента} 
  For i:=1 to N do
    if x[i]<0 then neg:=i;
  If neg<>0 then x[neg]:=s; {меняем последний отрицательный}
  writeLn;
  Writeln('Массив после изменения: ');
  For i:=1 to n do Writeln('[',i,'] ',x[i]:6:2);
  ReadLn;
end.