Двумерные массивы

const
  n = 100;
  m = 1000;
 
var
  a: array [1..n, 1..m] of integer;
  xi, xj, i, j: integer;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := -1000 + random(2001);
  for i := n downto 1 do
    for j := 1 to m do
      if a[i, j] < 0 then
      begin
        xi := i;
        xj := j;
      end;
  writeln(xi:8, xj:8);
end.

// Матрица змейкой
begin
var n := 10; // Размер квадратной матрицы n*n
var m := MatrFill(n,n, 0);
var a := Range(1, n*n).toArray;
var (i, j, sign, c) := (0,-1, 1, 0);
var (Право, Низ, Лево, Верх) := (n-1,n-1, 0, 1);
while c < n*n do begin
while j < Право do begin j += sign;m[i,j] := a[c]; inc(c); end; dec(Право);
while i < Низ do begin i += sign; m[i,j] := a[c]; inc(c); end; dec(Низ);
sign := -1;
while j > Лево do begin j += sign; m[i,j] := a[c]; inc(c); end; inc(Лево);
while i > Верх do begin i += sign; m[i,j] := a[c]; inc(c); end; inc(Верх);
sign := 1;
end;
m.Println;
end.

begin
 var n:= 10; // Размер матрицы n*n
 var a := 1.to(n*n div 3 + 1).Interleave(Seq(0).Cycle,Seq(0).Cycle).Take(n*n).toArray;
 Transpose(matr(n,n,a)).Println;
end.

/// Чередует элементы трех последовательностей
function Interleave<T>(Self: sequence of T; a, b: sequence of T): sequence of T; extensionmethod;
begin
  if a = nil then
    raise new System.ArgumentNullException('a');
  if b = nil then
    raise new System.ArgumentNullException('b');
  Result := Self.ZipTuple(a, b).SelectMany(x -> Seq(x[0], x[1], x[2]))
end;