прикладная математика

var max,min,nmax,nmin:integer;
   mas:array[1..20] of integer; //массив будем считать уже заданный
begin
   max:=mas[1]; min:=mas[1];
for i:=1 to 20 do
   begin
   if max<mas[i] then begin max:=mas[i];  nmax:=i; end;
   if min>mas[i] then begin min:=mas[i]; nmin:=i; end;
   end;
mas[nmax]:=min; mas[nmin]:=max;
readln();
end;