Разработать программу нисходящим способом

[Аелд]

Если сумма двух первых строк матрицы A меньше суммы элементов двух последних ее строк, изменить матрицу А, прибавив к элементам каждой строки заданные элементы X1, X2,..., Xn.
Вот моя программа.Проблема в том, что дальше вывода массива X она ничего не делает.

type matr1=array [1..5, 1..5] of real;
     matr2=array [1..5] of real;
var A:matr1;
    X:matr2;
    fl:boolean;
    i,j,N:integer;
Procedure PP1(A:matr1; N:integer; var fl:boolean);
var i,j:integer;
    s1,s2:real;
begin
  s1:=0;
  s2:=0;
  fl:=true;
  for j:=1 to 5 do
   begin
    for i:=1 to 2 do
    s1:=s1+A[i,j];
   end;
  for i:=1 to 5 do
    begin
     for j:=4 to 5 do
     s2:=s2+A[i,j];
    end;
  if s1<s2 then
    fl:=false;
end;
Procedure PP2(X:matr2; N:integer; var A:matr1);
var i,j:integer;
begin
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
     A[i,j]:=A[i,j]+X[i];
     write(A[i,j]:2:0);
   end;
end;
Begin
  writeln('Введите массив X: ');
  for i:=1 to 5 do
  read(x[i]);
  writeln('Введите двумерный массив A: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
    read(A[i,j]);
    readln;
   end;
  PP1(A,5,fl);
  if (fl=true) then
      PP2(X,5,A);
 for i:=1 to 5 do
  begin 
   for j:=1 to 5 do
   write(A[i,j]):4:0, ' ');
end.

[newerow1989]

const N=5;
type matr1=array [1..N, 1..N] of real;
     matr2=array [1..N] of real;
var A:matr1;
    X:matr2;
    fl:boolean;
    i,j:integer;

Procedure PP1(A:matr1; N:integer; var fl:boolean);
var i,j:integer;
    s1,s2:real;
begin
  s1:=0;
  s2:=0;
  fl:=false;
  for j:=1 to N do
   begin
    for i:=1 to 2 do
    s1:=s1+A[i,j];
   end;
  for i:=1 to N do
    begin
     for j:=N-1 to N do
     s2:=s2+A[i,j];
    end;
  if s1<s2 then
    fl:=true;
end;

Procedure PP2(X:matr2; N:integer; var A:matr1);
var i,j:integer;
begin
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
    begin
     A[i,j]:=A[i,j]+X[i];
     write(A[i,j]:2:0,'  ');
    end;
    writeln; 
   end;
end;

Begin
  writeln('Ââåäèòå ìàññèâ X: ');
  for i:=1 to 5 do
     readln(x[i]);
  writeln('Ââåäèòå äâóìåðíûé ìàññèâ A: ');
  for i:=1 to n do
    for j:=1 to n do
    begin
      write(i,', ',j,' = ');
      readln(A[i,j]);
    end;
  PP1(A,5,fl);
  if fl then
      PP2(X,5,A);
 for i:=1 to 5 do
 begin
   for j:=1 to 5 do
    write(A[i,j]:4:0, ' ');
   writeln; 
 end;
 readln;
end.

[Аелд]

Спасибо. Понял свою ошибку)))

[newerow1989]

[Аелд]

Не подскажите, в какую часть программы нужно "влепить" сообщение об измененной матрице?

[newerow1989]

if fl then
begin
      Writeln('Измененная матрица:');
      PP2(X,5,A);
end;