Массивы. В качестве компоненты вектора принять разность минимального и максимального элементов

program Lab12_7;
const
  N=10;
type
  TMatrix=array [1..N,1..N] of real;
  TVector=array [1..N] of real;
procedure FillMatrix(var A:TMatrix; N:integer);
var
  i,j:integer;
begin
  for i:=1 to N do
     for j:=1 to N do
       A[i,j]:=sin(2*(i+j)/pi)+cos((i+j)/pi)
end;
function GetVector(var A: TMatrix; X:TVector; N: integer): integer;
var
   max,sum,min,p: real;
   i,j:integer;
begin
  max:=0;
  min:=0;
  for i:=1 to N do 
  begin
    sum:=0;
    for  j:=1 to N do 
      sum:= sum+(A[i,j]);
    if sum > max then
    begin
      max:=sum;
    end;
    if sum < min then
    begin 
        min:=sum;
    end;
    p:=(min-max);
    X[p]:= 
   end;
 end;
function G(var X:TVector;N:integer):real;
var
  i:integer;
  max:real;
  begin
  max:=0;
   for i:=1 to N do
   begin
     z:=abs(X[p]);
     if z > max then 
     begin
        max:=z:
     end;
   end;
  G:=z;
end;
var
  A:TMatrix;
  X:TVector;
  i,j:integer;
  Gf:real;
begin
  FillMatrix(A,N); 
  writeln('Матрица А');
  for i:=1 to N do begin 
  for j:=1 to N do
  write(A[i,j]:7:2);
  writeln;
  end;;
  GetVector(A,X,N); 
  writeln('Вектор X');
  for i:=1 to N do write (X[i]:7:2);
  writeln;
  Gf:=G(X,N);
  writeln('Функция g=', Gf:7:3);
end.

const n=10;
type TMatrix=array [1..n,1..n] of real;
     TVector=array [1..n] of real;
procedure FillMatrix(var a:TMatrix;n:integer);
var i,j:integer;
begin
writeln('Матрица А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=sin(2*(i+j)/pi)+cos((i+j)/pi);
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
end;
procedure GetVector(a: TMatrix; var x:TVector; n: integer);
var max,sum,min,p: real;
    i,j:integer;
begin
max:=a[1,1];
min:=a[1,1];
writeln('Вектор Х');
for i:=1 to n do
 begin
  for j:=1 to n do
  if a[i,j] > max then max:=a[i,j]
  else if a[i,j]<min then min:=a[i,j];
  x[i]:=abs(min-max);//если под разностью понимать модуль, если нет, то убрать abs
  write(x[i]:6:2);
 end;
end;
var a:TMatrix;
    x:TVector;
    i,j:integer;
begin
FillMatrix(a,n);
GetVector(A,X,N);
end.