Для матрицы из 3 столбцов и 7 строк отпечатать номера тех строк, в которых третий элемент больше суммы двух других элементов строки, и число строк такого рода — Pascal(Паскаль)

program Project1;

{$APPTYPE CONSOLE}

Var
  mas: array [1 .. 7, 1 .. 3] of integer;
  i, g: byte;

begin

  Randomize;
  for i := 1 to 3 do
    for g := 1 to 7 do
      mas[i, g] := random(100);

  for g := 1 to 7 do
  begin
    for i := 1 to 3 do
      Write(mas[i, g], ' ');
    Writeln;
  End;

  Writeln;
  for g := 1 to 7 do
    if mas[3, g] > mas[1, g] + mas[2, g] then
      Write(g, ' ');

  Readln;

end.