Обработка массивов Опции

[Старающийся]

Будьте любезны горит задание.Завтра сдавать,не могли бы посмотреть,я написал прогу но ничего в программировании не понимаю.Писал чисто по образцам.Не могли бы проверить.Вот само задание.
Ввести массив А[5].Сформировать массив В[5,5],где B[i,j]=i+j,если i<j;иначе B[i,j]=(i-j)/(i+1).Найти массив С=А*В.Упорядочить массив С в порядке возрастания абсолютных значений его элементов.
Программа:

Program lab3;
Uses CRT;
const n=5;m=5;
Var A[1..n],B[1..m,1..n],C[1..n]
 of real;
i,j:integer;
r,S:real;
Begin
clrscr;
writeln('Vvedite massiv A [',n,']:');
  for i:=1 to n do
  read(A[i]);
    for i:=1 to m do
    begin
      for j:=1 to n do
        read (B[i,j];
      if i<j then B[i,j]:=i+j else
      B[i,j]:=(i-j)/i+1;
    end;
        for i:=1 to m do
        begin
          for j:=1 to n do
          write(B[i,j],' ');
        end;
          for j:=1 to n do
          begin
          S:=0
            for i:=1 to m do
            S:S+A[i]*B[i,j];
          end;
          C[j]:=S;
            for j:=1 to n do
            write(C[j],' ');
              for j:=1 to n-1 do
              for i:=n down to j+1 do
                begin
                if abs(C[i-1])<abs(C[i]) then
                r:=C[i];
                C[i]:=C[i-1];
                C[i-1]:=r;
                end;
                  for i:=1 to n do
                  begin
                  write(C[i],' ');
                  end;
                  readkey
END.

М

с тегами красивее, правда?.. мисс_граффити