Помогите сделать лабораторную с делфи

[oleg.petrov24]

Задан действительны x и матрица A ( n , n ) , n <= 20 . Разработать программу , которая строит логический вектор X ( n ) по правилу: если максимальный элемент i - й строки не превышает x , то X ( i ) = true , в противном случае X ( i ) = false

[newerow1989]

Икс маленькое и большое - одно и то же на Паскале. Тогда прийдется обозначить вместо x маленького на другую букву, например k. Я понял такой смысл задачи: X(i) = true в том случае, если k >= любого взятого элемента из строки, тогда

for i:=0 to n do
begin
   X(i):=true;
   for j:=0 to n do
      X(i) := (A(i,j) <= k)  and X(i);
end;

[min@y™]

{
Задан действительны x и матрица A ( n , n ) , n <= 20 . Разработать программу ,
которая строит логический вектор X ( n ) по правилу: если максимальный элемент
i - й строки не превышает x , то X ( i ) = true , в противном случае X ( i ) = false
}
type
  TMatrix = array[0..19, 0..19] of Integer;
  TVector = array[0..19] of Boolean;
  

procedure BuildVector(const A: TMatrix; const n, xx: Integer; out X: TVector);
var
  row, col, max: Integer;
begin
  for row:= 0 to n - 1 do
    begin
      max:= A[row, 0];
      
      for col:= 1 to n - 1 do
        if A[row, col] > max
          then max:= A[row, col];
          
      X[row]:= xx <= max;
    end;
end;