Проверить, что все столбы матрицы имеют положительную сумму

const n=3; m=5;
type  telem=integer;
      matr=array[1..n,1..m] of telem;
var a:matr;
    j,i,k:integer;
    ok:boolean;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    read(a[i,j]);
    readln
  end;
ok:=false;
i:=1;
while (i<=n) and not(ok) do
 begin
  for j:=1 to m do
   begin
    ok:=false;
    if a[i,j+1]>a[i,j] then ok:=true;
    end; i:=i+1;
end;
 if ok then write('yes')
        else write('no');
  Readln
end.

const n=3; m=5;
type matr=array[1..n,1..m] of integer;
var a:matr;
    j,i,k:integer;
    ok:boolean;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    read(a[i,j]);
    readln;
  end;
 
k:=0;
for i:=1 to n do
 begin
  ok:=true;
  for j:=1 to m-1 do if a[i,j]<=a[i,j+1] then ok:=false;
  if ok then k:=k+1;
 end;
Writeln;
 if k>0 then write('YES') else write('NO');
Readln;
end.

const n=3; m=5;
type matr=array[1..n,1..m] of integer;
var a:matr;
    j,i,k,s:integer;
    ok:boolean;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    read(a[i,j]);
    readln;
  end;
 
k:=0;
 for j:=1 to m do
 begin
  s:=0;
  for i:=1 to n do s:=s+a[i,j];
  if s>0 then inc(k);
 end;
Writeln;
 if k=m then write('YES') else write('NO');
Readln;
end.