const nStr = 4; nCol = 3;
type  TStr = array[1..nCol] of integer;
      TMatr = array[1..nStr] of TStr;
      TVector = array[1..nStr] of Boolean;

var mtr: TMatr; vect: TVector;

function AllDiff(str:TStr):Boolean;
    var i,j:integer;
    begin
    i:=1; result:=true;
    while (i<nCol) and result do
    begin
        j:=i+1;
        while (j<=nCol) and result do
            if str[i] <> str[j] then
                inc(j)
              else result:=false;
        inc(i);

    end;
    end;
procedure formVector(m: TMatr; var vec: TVector);
var i: integer;
begin
  for i:=1 to nStr do
    vec[i]:= AllDiff(m[i])
end;

procedure formMatr(var m: TMatr);
var i, j: integer;
begin
  writeln('Введите матрицу',nStr,'x',nCol);
  for i:=1 to nStr do
    for j:=1 to nCol do
      read(m[i,j]);
  readln;
end;

procedure printResult(m: TMatr; v: TVector);
var i, j: integer;
begin
  writeln('--- результат ---');
  for i:=1 to nStr do
  begin
    for j:=1 to nCol do
      write(m[i,j]:3);
    writeln;
  end;
  writeln('---------------');
  for i:=1 to nStr do
    if v[i] then write('T':3)
    else write('F':3);

end;
begin
    formMatr(mtr);
    formVector(mtr,vect);
    printResult(mtr,vect);
    readln;
end.