Нужна помощь в программе(pascal)

[czodlera]

есть образец выполнения программы, нужно переделать под мой вариант, никак не могу разобраться, как нужно изменить пункт б) в образце под мой

program Lab71; 
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 10 do 
 for J:=1 to 10 do 
 A[I,J]:=sin(2*I+J) 
end; 
procedure GetVector(var A:TMatrix; 
 var X:TVector; N:integer); 
var 
 I:integer; 
begin 
 for I:=1 to N do 
 X[I]:=A[I,N+1-I] 
end;
function G(var X:TVector; 
 N:integer):real; 
var 
 I:integer; 
 S:real; 
begin 
 S:=0; 
 for I:=1 to N-2 do 
 S:=S+X[I]*X[I+1]*X[I+2];
 G:=S; 
end; 
var 
 A:TMatrix; 
 X:TVector; 
 I,J:integer; 
 Gf:real; 
begin 
 FillMatrix(A,N); 
 writeln('Матрица А'); 
 for I:=1 to 10 do begin 
 for J:=1 to 10 do 
 write(A[I,J]:7:2); 
 writeln; 
 end; 
 GetVector(A,X,N); 
 writeln('Вектор X'); 
 for I:=1 to 10 do 
 write(X[I]:7:2); 
 writeln; 
 Gf:=G(X,N); 
 writeln('Функция g=', 
 Gf:7:3); 
end.

а вот вариант, под который нужно переделать

исправьте пожалуйста код под мой вариант, не могу выполнить только пункт б, помогите))