Дана целочисленная прямоугольная матрица. Определить:

const n=5;m=6;
      yn:array[boolean] of string=('максимальное не единственное','максимальное единственное');
type mas=array[1..n,1..m] of integer;
var a:mas;
    i,j,ks:integer;
procedure vv(var x:mas;f:boolean);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if f then x[i,j]:=-15+random(31);
     write(x[i,j]:4)
    end;
   writeln
  end
end;
function nyl(x:mas;ii:integer):boolean;
var j:integer;
    f:boolean;
begin
 f:=true;
 j:=1;
 while (j<=m)and f do
  begin
   f:=f and(x[ii,j]<>0);
   inc(j)
  end;
 nyl:=f
end;
function max(x:mas):boolean;
var i,j,maxx,si,sj,k:integer;
begin
 k:=1;
 maxx:=a[1,1];si:=1;sj:=1;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if a[i,j]=maxx 
      then inc(k)
      else 
       if a[i,j]>maxx
        then
         begin
          maxx:=a[i,j];si:=i;sj:=j;k:=1
         end 
    end
  end;
 if k=1 then max:=true
        else max:=false
end;
begin
 randomize;
 writeln('исходная матрица');
 vv(a,true);
 ks:=0;
 for i:=1 to n do ks:=ks+ord(nyl(a,i));
 writeln('количество строк, не содеражих ноль: ',ks);
 writeln(yn[max(a)]);
 readln
end.