Помогите плз очень надо, никак не могу решить 3 задачки

[Pihan]

4. В одномерном массиве определить максимальное значение. Рассортировать до максимального значения по возрастанию. Результат вывести. Затем рассортировать после максимального значения по возрастанию и снова вывести. А затем рассортировать весь массив и снова вывести.

ну можно только 1. Плз оч надо

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,max,temp:integer;

Procedure Print;
begin
for i:=1 to n do
 write(a[i]:3);
end;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
writeln('===================');
max:=1;
for i:=2 to n do
 if a[i]>a[max] then max:=i;

 for i:=2 to max-1 do
    for j:=max-1 downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;
Print;
writeln;
 for i:=max+2 to n do
    for j:=n downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;
Print;
writeln;
 for i:=2 to n do
    for j:=n downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;
Print;
writeln;

end.

[Pihan]

клево))) спасибо