помогите, срочно надо до понедельника

procedure sort;
begin
for i:=1 to n-1 do
  for j:=n downto i+1 do
  begin
  if (a[j]<a[j-1]) then    {esli sosednie elementi odin menshe drugogo}
            begin            {to obmenivaem ix mestami}
            tmp:=a[j];
            a[j]:=a[j-1];
            a[j-1]:=tmp;
            end;
   end;
end;

procedure create;  {"sozdanie" massiva Neuporadochennogo, uporadochennogo}
var rec: integer;
begin
randomize; rec:=1;
write('"Opredelite razmernost massiva : '); read(n);
writeln('1.Neuporyadochenii');
writeln('2.Uporyadochennii po vozrastaniu');
writeln('3.Uporyadocheniii po ubivaniu'); read(go);
clrscr;
case go of
1: begin writeln('1.Neuporyadochenii');
   for i:=1 to n do a[i]:=random(2000)-1000; end;
2: begin writeln('2.Uporyadochennii po vozrastaniu');
   for i:=1 to n do begin a[i]:=rec; rec:=rec+1; end; end;
3: begin writeln('3.Uporyadocheniii po ubivaniu');
   for i:=1 to n do begin a[i]:=rec; rec:=rec-1; end; end;
end;
end;

procedure sort;   {sortirovka massiva metodom pryamogo vibora}
var tmp,i: integer;
begin
writeln;
for i:=1 to n-1 do
begin
min:=i;                   {min element primem ravnim i}
 for j:=i+1 to n do       {naxodim min. element iz dvux sosednix}
 begin
  if a[j]<a[min] then min:=j;  end;
  tmp   :=a[i];           {obmenivaem znacheniyami sosednie elementi}
  a[i]  :=a[min];
  a[min]:=tmp;
end;
writeln;
end;