Найти в массиве max и min элементы, поменять их местами

Program lab7;
const N = 10;
var 
    arr: array[1..N] of integer;
    min, max, i: byte;
    b: integer;
begin
    randomize;
    for i:=1 to N do begin
        arr[i] := random(100)-50;
        write(arr[i],' ');
    end;
    writeln;
    min := 1;
    max := 1;
    for i:=2 to N do begin
        if arr[i] < arr[min] then
            min := i;
        if arr[i] > arr[max] then
            max := i;
    end;
    writeln('arr[',min,']=',arr[min],' arr[',max,']=',arr[max]);
    b := arr[min];
    arr[min] := arr[max];
    arr[max] := b;
    for i:=1 to N do
        write(arr[i],' ');
    writeln;
end.

Program lab7;
const N = 10;
var 
    arr: array[1..N] of integer;
    min, max, i: byte;
    b: integer;
begin
    randomize;
    for i:=1 to N do begin
        arr[i] := random(100)-50;
        write(arr[i],' ');
    end;
    writeln;
    min := 1;
    max := 1;
    for i:=2 to N do begin
        if arr[i] < arr[min] then
            min := i;
        if arr[i] > arr[max] then
            max := i;
    end;
    writeln('arr[',min,']=',arr[min],' arr[',max,']=',arr[max]);
    b := arr[min];
    arr[min] := arr[max];
    arr[max] := b;
    for i:=1 to N do
        write(arr[i],' ');
    writeln;
    //обнуление
    If max>min THEN begin
      If max-min>1 THEN begin
      For i:=min+1 to max-1 do arr[i]:=0;
      end
                ELSE begin
      If min>max THEN begin
      If min-max>1 THEN begin
      For i:=max+1 to min-1 do arr[i]:=0;
      end;
      end;
      end;
      end;
          for i:=1 to N do
        write(arr[i],' ');
end..