Задачи, pascal

[Rasta28]

Помогите, пожалуйста!!!
Задача 1. В целочисленной матрице А размером N*M (числа N и M задаются с клавиатуры в диапазоне от 3 до 10) подсчитать сумму элементов побочной диагонали и расположенных ниже нее.
Заполнение матрицы осуществить с клавиатуры числами в диапазоне от 2 до 12. Исходную матрицу и сумму элементов заданной области матрицы вывести на экран.

Задача 2. Сформировать вещественную матрицу А размером N*M (числа N и M задаются с клавиатуры в диапазоне от 3 до 10). Суммы элементов строк занести в одномерный массив В.
Заполнение матрицы осуществить с клавиатуры. Массивы А и В вывести на экран.

[Aleksandr H.]

Точно не квадратная матрица имеет побочную диагональ?

uses crt;
type mas2d = array [1..10,1..10] of byte;
     mas = array[1..10] of byte;
var n,m : byte;
    a   : mas2d;
    aa  : mas;
    s   : integer;

procedure ReadDataAndFindTasks(n,m:byte;var a:mas2d;var sum:integer;var aa:mas);
var i,j:integer;
     as,bs:byte;
begin
  as :=0;bs:=0;
  for i:=1 to n do
   for j:=1 to m do
    begin
         repeat
           writeln('vvedite A[',i,',',j,'])');readln(a[i,j]);
         until ( a[i,j] in [2..12]);
         if i+j=n+1 then as:=as+a[i,j];
         if i+j>n+1 then bs:=bs+a[i,j];
         aa[i]:=aa[i] + a[i,j];
    end;
  sum:=as+bs;
end;
procedure OutData(n,m:byte;a:mas2d);
var i,j:byte;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:6);
   writeln;
  end;
end;
procedure OutData2(n:byte;aa:mas);
var i:byte;
begin
 for i:=1 to n do
  write(aa[i]:3);
  writeln;
end;
BEGIN
clrscr;
repeat
   write('N = ');readln(n);
until n in [3..10];
{repeat
   write('M = ');readln(m);
until m in [3..10];}
m:=n;

ReadDataAndFindTasks(n,m,a,s,aa);
writeln('S = ',s);
outdata(n,m,a);
outdata2(n,aa);
readln;
end.

[Rasta28]

Сообщение от Aleksandr H.

Точно не квадратная матрица имеет побочную диагональ?

Точно
А это к какой задаче?

[Aleksandr H.]

к 2ум