Составление программы нисходящим способом(Pascal)

нисходящим способом - может я что-то не понял, но допустим может так(хотя в условии кое-где вроде не дописано немного):
[highlight=pascal]
uses crt;

const
n = 5;
matrixC: array[1..n]of real = (1, 2, 3, 4, 5);
P = 0;
T = 7;

var
i, j: integer;
matrixA: array[1..5,1..5]of real;
matrixX: array[1..5]of real;
b: boolean;
begin
clrscr;
b:=true;
for i:=1 to n do
if not ((matrixC>P) and (matrixC<T)) then
begin
b:=false;
break;
end;
if b then
begin
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
matrixA[i, j]:=random(20);
write(' ',matrixA[i, j]:2:2);
end;
writeln;
end;
for i:=1 to 5 do
matrixX:=0;
for i:=1 to 5 do
for j:=1 to 5 do
matrixX:=matrixX+matrixA[i, j];
for i:=1 to 5 do
writeln(matrixX:2:2);
end;
readln;
end.
[/highlight]
если над что-то вводить, то самостоятельно предлагаю реализовать.