Написать программу на паскале(или хотя бы алгоритм на том же языке).в матрице а[5,5] найти все строки, со строками матрицы в[5,5]. переформировать матрицу а так, чтобы найденные строки располагались в её начале, а остальные в конце.

begin

  var a : = new integer[5, 5](

      (2, 4, 5, 1, 3),

      (7, 2, 9, 0, 2),

      (6, 4, 1, 0, 1),

      (8, 4, 7, 2, 0),

      (6, 0, 0, 2, 1));

  println('массив a');    

  a.println(2);

  println('массив b');

  var b : = new integer[5, 5](

      (2, 4, 5, 0, 3),

      (6, 0, 3, 2, 1),

      (2, 4, 5, 1, 3),

      (8, 4, 7, 2, 0),

      (6, 2, 0, 2, 1));

  b.println(2);

  println('массив a');

  var c : = new integer[5, 5];

  var (upper, lower) : = (0, a.rowcount - 1);

  for var i : = 0 to a.rowcount - 1 do

  begin

    var found : = false;

    for var j : = 0 to b.rowcount - 1 do

      if a.row(i).sequenceequal(b.row(j)) then

      begin

        c.setrow(upper, a.row(i));

        upper += 1;

        found : = true;

        break

      end;

    if not found then  

    begin

      c.setrow(lower, a.row(i));

      lower -= 1;

    end

  end;

  a : = copy(c);

  c : = nil; // удаляем с

  a.println(2)

end.