Значения элементов

[vasadisim123]

Разработать программу по заданию, выделив одну или несколько процедур.
Кроме матрицы А, даны элементы С1,С2,…,С5. Если значения всех этих элементов заключены между заданными
значениями Р и Т, получить значения элементов Х1, Х2,…,Х5 по формуле Xi=Сумма от k=1 до 5 Аik.
Вот, наработки, но не работает

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
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.