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

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.