Найти в двумерном массиве целых чисел размером 3х4 номера отрицательных элементов (вывести их на экран), если таких нет, то сообщить об этом.

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(3,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
  if s.Count=0 then Writeln('Нет отрицательных элементов')
  else begin
    Write('Отрицательные элементы: ');
    s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
    end
end.


*** Исходный массив ***
 -62  13 -44  78
 -19  73  92 -61
  47 -13   3  43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]