задача про 2х мерный массив (Turbo Pascal)

[masil]

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

Дана матрица,размеры которой 10 x 10,найти максимальное среди сумм элементов диагоналей параллельных главной.

[puporev]

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

[masil]

ну мне главное чтобы не очень короткий,чтобы я смогла понять и объяснить,а то у меня подруги тоже на курсе написали слишком короткий код с под процедурами, а объяснить преподавателю так и не смогли как программа работает.. вот так

[puporev]

И Вы не сможете, потому что ничего не учили и не делали прктически.

[alex_fcsm]

uses crt;
const m=10;
      n=10;
var a:array[1..m,1..n]of integer;
    i,j,max,k,sum:integer;
begin
clrscr;
randomize;
for i:=1 to m do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(20)+1;
  write(a[i,j]:3);
  end;
writeln;
end;
writeln('----------------');
sum:=0;max:=0;
for k:=2 to n do
 begin
  i:=1;
  j:=k;
  while j<=n do
   begin
    write(a[i,j]:3);
    sum:=sum+a[i,j];
    inc(j);inc(i);
  end;
 if sum>max then max:=sum;
 sum:=0;
 writeln;
 end;
writeln('----------------');
for k:=2 to m do
 begin
  j:=1;
  i:=k;
  while i<=m do
   begin
   sum:=sum+a[i,j];
    write(a[i,j]:3);
    inc(j);inc(i);
  end;
  if sum>max then max:=sum;
  sum:=0;
 writeln;
 end;
 writeln('Max Summa:',max);
end.