Работа с матрицей

const NN=50;
type vec=array[1..NN] of integer;
var
  a:vec;
  n,i:integer;
 
function ArrSum(a:vec;n:integer):integer;
var
  s,i:integer;
begin
  s:=0;
  for i:=1 to n do s:=s+a[i];
  ArrSum:=s;
end;
 
function IsArrSeq(a:vec;n:integer):boolean;
var
  b:boolean;
  i:integer;
begin
  b:=true;
  for i:=2 to n do if a[i]<>a[i-1]+1 then b:=false;
  if not b then begin
    b:=true;
    for i:=2 to n do if a[i]<>a[i-1]-1 then b:=false;
  end;
  IsArrSeq:=b;
end;
 
procedure MaxMin1(a:vec;n:integer;var max1,min1,pol1:integer);
var
  i:integer;
begin
  max1:=a[n];
  min1:=a[n];
  pol1:=low(a)-1;
  for i:=n downto 1 do begin
    if max1<a[i] then max1:=a[i];
    if min1>a[i] then min1:=a[i];
    if not odd(a[i]) then pol1:=i;
   end;
end;
 
procedure ArrPrintln(a:vec;n:integer;s:string);
var
  i:integer;
begin
  write(s);
  for i:=1 to n do write(a[i],' ');
  writeln;
end;
 
procedure ArrSort(var a:vec;n:integer);
var
  i,j,k:integer;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j] then begin
        k:=a[i];
        a[i]:=a[j];
        a[j]:=k
      end;
end;
 
var mx,mn,pl:integer;
 
begin
  write('n=');readln(n);
  write('Enter array elements:');
  for i:=1 to n do read(a[i]);writeln;
  writeln('ArrSum=',ArrSum(a,n));
  writeln('IsArrSeq=',IsArrSeq(a,n));
  MaxMin1(a,n,mx,mn,pl);
  writeln('Max(a)=',mx,' Min(a)=',mn,' Pol(a)=',pl);
  ArrPrintln(a,n,'Array:');
  ArrSort(a,n);
  ArrPrintln(a,n,'Sorted Array:');
  readln;
end.