Помогите!
Нужно написать программу в Паскале.
Нужно найти мах и мин в массиве и поменять их местами!

var a:array[0..100] of integer;i:integer;max,min:integer;begin  for i:=0 to 100 do begin     if a[i]<a[min] then min:=i;    if a[i]>a[max] then max:=i;  end  i:=a[max];  a[max]:=a[min];  a[min]:=i;end.