Напишите 3 вариант пожалуйста

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(7,4,-100,100);
  a.Println(5); Writeln(5*a.ColCount*'-');
  var k:=ReadInteger('Номер строки для замен:');
  a.SetRow(k-1,(a.Row(k-1).Select(x->-x).ToArray));
  Writeln('*** Результирующи массив ***'); a.Println(5)
end.

Пример
*** Исходный массив ***
  -23  -16   65   53
  -24  -99   25   52
   81   61  -76   29
   59  -85    5   72
  -46  -19  -43   12
   29  -17    9  -95
   75   31  -57  -52
--------------------
Номер строки для замен: 3
*** Результирующи массив ***
  -23  -16   65   53
  -24  -99   25   52
  -81  -61   76  -29
   59  -85    5   72
  -46  -19  -43   12
   29  -17    9  -95
   75   31  -57  -52