Паскаль.Сортировка массива

[alexBlack]

   {Вставка бпрьера;
   Для этого находим максимальный элемент и меняем его с первым местами}
   max:=0;
   for i:=1 to n-1 do begin
      if a[i]>a[max] then max:=i;
   end;
   x:=a[max]; a[max]:=a[0]; a[0]:=x;

   {Сортировка массива вставками}
   for i:=2 to n-1 do begin
     x:=a[i];
     j:=i;
     {Поиск места вставки и сдвиг элемента вправо}
     while x>a[j-1] do begin
        a[j]:=a[j-1];
        dec(j);
     end;
     a[j]:=x;
   end;

[максим2012]

можетт ктото сможет памоч и мне
завтра должен презентавати учительницэ

В массиве целых чисел N, найти максимальный элемент и поменять с первым элементом.(элементы массива вводятся с клавиатуры);

[puporev]

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i,mx,imx,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числа:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
mx:=a[1];imx:=1;
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i]>mx then
   begin
    mx:=a[i];
    imx:=i;
   end;
 end;
writeln;
writeln('Максимальный элемент=',mx,' его индекс=',imx);
x:=a[imx];
a[imx]:=a[1];
a[1]:=x;
writeln('Обмен 1 элемента и максимального:');
for i:=1 to n do
write(a[i],' ');
readln
end.