беда

[Морячок]

народ привет! кто шарит в паскале, нужна помощь, плиз. завтра курсовая а прога не идет по чему не понимаю!!! кто может помочь, спасите!!! жду ответ! вот прога, нужно чтобы элементы массива стояли в порядке возрастания а не в разноброд как у меня(((

program Max_search;
uses crt;
const m=10;
type vector=array[1..m] of integer;
var a:vector;
i,j,imax,max,p,d:integer;
n:real;
Begin
clrscr;
randomize;
writeln('Ñîçäàíèå ìàññèâà è åãî âûâîä');
for i:=1 to m do
begin
p:=random(10);
a[i]:=p-1;
write(a[i]:3);
end;
max:=a[1];
for i:=2 to m do
if max<a[i] then
begin
max:=a[i];
imax:=i
end;
writeln;
writeln('çíà÷åíèå ìàêñèìàëüíîãî=',max);
writeln('Èíäåêñ ìàêñèìàëüíîãî=',imax);
{óïîðÿäî÷åíèå ýëåìåíòîâ ìàññèâà Z}
for i:=1 to m-1 do
for j:=1 to m-i do
if a[i]>=a[i+1] then
begin
d:=a[i];
a[i]:=a[i+1];
a[i+1]:=d;
writeln('Óïîðÿäî÷åííûé ìàññèâ Z');
for i:=1 to m do write (a[i]:3);
writeln;
readln;
end;
end.

[ROMA2PVT]

for i:=1 to m-1 do
  for j:=1 to m-i do
    if a[j]>=a[j+1] then
       begin
          d:=a[j];
          a[j]:=a[j+1];
          a[j+1]:=d;
       end;

[Grag]

А может так правильнее будет, ась???? Это ж обычная линейная сортировка...

for i:=1 to m-1 do
  for j:=i+1 to m do
    if a[i]>a[j] then
       begin
          d:=a[i];
          a[i]:=a[j];
          a[j]:=d;
       end;

А вот так еще интереснее будет!

for i:=1 to m-1 do
  for j:=i+1 to m do
    if a[i]>a[j] then
       begin
          a[i]:=a[i]+a[j];
          a[j]:=a[i]-a[j];
          a[i]:=a[i]-a[j]
       end;

[ROMA2PVT]

а чё у меня неверно чтоли?