матрицы,строки Опции

[mixail_01]

Сформировать матрицу 5 на 5, вывести номера полностью совпадающих строк.

[volvo]

А я бы поправил вот так:

var printed: boolean;
{ ... }
  for i := 1 to m do
  begin
    printed := false;
    if not (i in st) then
    begin
      for j := i + 1 to m do
        if check(i, j) then
        begin
          if not printed then
          begin
            write(i, ' ');
            printed := true;
          end;
          write(j, ' ');
          st := st + [i, j];
        end;
    end;
    if printed then writeln;
  end;

Во-первых, условие (i <> j) тоже оказывается лишним, а во-вторых, более правдоподобный (ну, скажем, более ожидаемый) вывод результата: на матрице
1 2 3 4 5
2 4 6 2 5
1 2 3 4 5
2 4 6 2 5
1 2 3 4 5
выдаст
1 3 5
2 4
, а не
1 3
1 5
2 4
, как первоначальный вариант...