Решите пожалуйста первую задачу, срочно

Программа в файле Program rtr1;Uses crt;Var a:array [1..100] of real;    mx, max,min:real;    max1,min1,i,n:integer;Begin Clrscr; Write('n='); Readln(n); Writeln('Вводите массив:'); for i:=1 to n do  readln(a[i]);  max:=a[1];  min:=a[1]; for i:=1 to n do  begin   if a[i]>=max then  max:=a[i];    if a[i]<=min then  begin min:=a[i]; min1:=i; end;  end;  i:=1; while a[i]<>max do  begin    i:=i+1;  end;  max1:=i;  mx:=a[max1];  a[max1]:=a[min1];  a[min1]:=mx;  for i:=1 to n do  write('a[',i,']=',a[i],';');  End.