Матрица, Поменять местами строки Опции

[Invisible]

Привет. Помогите решить задачу.
Дана матрица размером 5*4. Поменять местами первую строку и строчку, в которой находится первый нулевой элемент.
Заранее спасибо!

[volvo]

Invisible, как вариант:

function contains_zero(var mx: tmatrix; row: integer): boolean;
var
  j: integer;
  found: boolean;
begin
  j := 1; found := false;
  while (j <= size_col) and (not found) do begin
    found := (mx[row][j] = 0); inc(j)
  end;
  contains_zero := found;
end;

  ...
  { Заполнение матрицы }
  i := 1;
  while (i <= size_row) do
    if contains_zero(mx, i) then begin
      swap_rows(mx, 1, i);
      i := succ(size_row);
    end
    else inc(i);
  { вывод результата }
  ...