Работа с упорядоченным массивом Опции

[Райдер]

ребят, такая же фигня. в Паскале надо решить такую задачу:

вставить число в упорядоченный массив. Вновь образованный массив вывести на экран.

Завтра в универе будет грустно без этой задачи. А в Паскале и вообще в программировании не понимаю НИЧЕГО. вообще дуб дубом. задача то наверное для вас детская, но кто поможет тому МЕГА респект и спасибо! :molitva: :molitva: :molitva:

Добавлено (21.12.04 9:55):
сорри, забыл, массив одномерный.

[mithquessir]

Код

const
 n = 3;
 m =3;
 a:array[1..n,1..m] of integer = ((1,-2,3),(-3,2,-1),(2,-1,3));
var
 max,i,j,ind:integer;

begin
 max := -maxint;
 for i := 1 to n do
   for j := 1 to m do
     if a[i,j] > max then
       begin
         max := a[i,j];
         ind :=j;
       end;
 for i := 1 to n do
   dec(a[i,ind],max);
 for i := 1 to n do
   begin
     WriteLn;
     for j := 1 to m do
       Write(a[i,j]:3);
   end;
end.