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

[Invisible]

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

[Invisible]

Ну, вот допустим программа после использования вашего FAQ:

Код

uses crt;
const
size_row = 5;
size_col = 4;

type
tvector = array[1 .. size_col] of integer;
tmatrix = array[1 .. size_row] of tvector;
procedure swap_rows(var mx: tmatrix;
        const i, j: integer);
var T: tvector;
begin
  T := mx[i]; mx[i] := mx[j]; mx[j] := T
end;

procedure print(var mx: tmatrix);
var i, j: integer;
begin
  for i := 1 to size_row do
    begin
      for j := 1 to size_col do
        write(mx[i][j]:4);
      writeln
    end;
end;

var
mx: tmatrix;
x, i, j: integer;

begin
clrscr;
for i := 1 to size_row do
  for j := 1 to size_col do
    mx[i][j] := random(20);
writeln('before:'); print(mx);
swap_rows(mx, 1, 5);
writeln('after:'); print(mx);
readln;
end.

Мне нужно поменять местами первую строку и строчку, в которой находится первый нулевой элемент. Так как мне найти этот первый нулевой элемент?
Пробовал добавить строчку
if mx[i][1]:=0 then i:=x;
И изменить
swap_rows(mx, 1, x);
Но получил ошибку с boolean. Подскажите как можно это реализовать?