[san-46]

Совершенно точно. Вот работающий пример:

Код:

procedure TForm1.Button4Click(Sender: TObject);
const
  M = 4; N = 4;
  Matrix : array[1..M, 1..N] of Integer =
    ((1,2,3,4), (4,5,6,7), (8,9,10,11), (12,13,14,15));
var
  S : String;
  I, J : Integer;
begin
  S := '';
  for I := 1 to M do
    if I mod 2 = 1 then
      for J := 1 to N do
        S := S + IntToStr(Matrix[I, J])+','
    else
      for J := N downto 1 do
        S := S + IntToStr(Matrix[I, J])+',';
  Edit1.Text := S;
end;