Постройте логический вектор, каждый элемент которого принимает значение true, если среди элементов i-того строки матрицы А есть хотя бы два равных

program Matrix;
 
const
  n = 10;
 
type
  vector = array[1..n] of Integer;
 
function AnalizeRow(x:Vector): Boolean;
var
  k, l: Integer;
  Res: Boolean;
begin
  Res := False;
  k := 1;
  while (k < n) and (not Res) do
  begin
    l := k+1;
    while (l <= n) and (not Res) do
    begin
      Res := (x[k]=x[l]);
      Inc(l);
    end;
    Inc(k);
  end;
  Result := Res;
end;
 
var
  a: array[1..n] of vector;
  r: array[1..n] of Boolean;
  i, j: Integer;
 
begin
  Randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := Random(50);
      Write(a[i,j]:2, ' ');
    end;
    WriteLn;
  end;
  for i := 1 to n do
  begin
    r[i] := AnalizeRow(a[i]);
    //Âûâîäèì ðåçóëüòàò
    if r[i] then
      Write('true ')
    else
      Write('false ');
  end;
  ReadLn;
end.