Поменять местами минимальный и максимальный элементы массива

var a:array [0..10] of real; {ìàññèâ èç 10-òè ýëåìåíòîâ }
i,j:byte;
min,max,k: real;
index_max,index_min:integer;
begin
max:= 0;
min:= 0;
 randomize;  {âêëþ÷àåì (èíèöèàëèçèðóåì) íàø ðàíäîì }
 for i:=0 to 10 do
   begin;
   a[i]:= random (50)-100;    {ðàíäîìíûå ÷èñëà îò -50 äî 50 }
   end;
 for j:=0 to 10 do
  begin;
  if a[j]>max then
   begin;
   max:=a[i];
   index_max:= j ;
   end;
  if a[j]<min then
  begin;
   min:= a[j];
   index_min:= j;
   end; end;
   Writeln ('Ìàêñèìàëüíûé ýëåìåíò ìàññèâà :','a[',index_max,'] = ', max);
   writeln ('Ìèíèìàëüíûé ýëåìåíò ìàññèâà :','a[',index_min,'] = ',min);
  {Ìåíÿåì ýëåìåíòû ìåñòàìè}
  k:= a[index_max];
  a[index_max]:= a[index_min];
  a[index_min]:= k;
  {âûâîäèì ìàññèâ íà ýêðàí ñ óæå ïîìåíÿíûìè ìåñòàìè ýëåìåíòàìè}
  for i:= 0 to 10 do
  writeln ('a[',i,'] = ',a[i]);
  readln;
 end.

a[i]:=Random(101)-50;