Программа на паскале Очень срочн!!

[Gaml]

ребят помогите пожалуйста ...
нужна программа на паскале :В заданном двумерном массиве А к элементам главной диагонали добавить сумму элементов, стоящих ниже главной диагонали.
желательно через процедуры..

[Gaml]

спасибо что хотя бы прочитали ...

[VIK_aka_TOR]

100 р и в течении получаса ... коль срочно... коль нет... ждите доброго бескорыстного кодера...)

[VKorablev]

100р и 15 мин

[{Shadowevil}]

Я видимо очень добр и бескорыстен :D
Писал на Delphi 7, но под Паскаль переделать 2 минуты, так что вперед товаристч))

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..100, 1..100] of real;
  i, j, n, m: integer;

Procedure VvodMassiva(n, m: integer);
begin
  for i:=1 to n do
   for j:=1 to m do
    read(a[i, j]);
end;

Function summa(sum: real; n: integer):real;
begin
  for i:=2 to n do
   for j:=1 to i-1 do
     sum:=sum+a[i ,i-j];
   summa:=sum;
end;

Procedure sumelem(n: integer; sum: real);
begin
  for i:=1 to n do
   a[i, i]:=a[i, i]+sum;
end;

Procedure Result(n, m:integer; sum: real);
begin
  writeln;
  writeln('summa: '+floattostr(sum):2);
  writeln;
  for i:=1 to n do
   begin
   for j:=1 to m do
    begin
     write(a[i, j]:2:2);
     write('  ');
    end;
    writeln;
   end;
 readln;
 readln;
end;


begin
  { TODO -oUser -cConsole Main : Insert code here }

  writeln('Vvedite razmernost massiva: ');
  write('Kol-vo stolbcov: ');
  readln(n);
  write('Kol-vo strok: ');
  readln(m);
  writeln('Vvedite elementi massiva po '+inttostr(n)+' elementov v odnu stroku: ');
  writeln;

VvodMassiva(n, m);
sumelem(n, summa(0,n));
Result(n, m, summa(0,n));


end.

[Gaml]

спасибо огромное !!!)) очень выручили)