Дана матрица размером NxM/ Определить упорядочены ли её строки по неубыванию суммы их элементов

[пожрать_бы]

Помогите, пожалуйста, написать прогу в паскале

[Sciv]

Начинай, мы подключимся.

[Mad_Cat]

пожрать_бы

мда уж

s_prev:=0;
for i:=1 to m do
s_prev:=s_prev+a[1,i];
for i:=2 to n do
begin
s:=0;
for j:=1 to m do
s:=s+a[i,j];
if s_prev>s then break;
s_prev:=s;
end;
writeln(sprev<=s);

[пожрать_бы]

а можно полную программу?