Двухмерный массив (увеличить определённые элеманты массива).

for i:=1 to 4 do begin
  for j:=1 to 4 do
  if a[i,j] mod 0 then
  inc(a[i,j],16);
  if a[i,j] mod <>0 then
  incia[i,j],3);
end;
{вывод матицы}
for i:=1 to 4 do begin
  for j:=1 to  do
  write(a[i,j],' ');
  writeln;
end.

var
  a:array[1..3,1..2] of real;
  i:integer;
  j:integer;
  p:real;  {произведение отрицательных элементов}
  max:real; {максимальный элемент}
  c:integer;  {количства отрицательных элементов}
begin
  {ввод элементов массива}
  writeln('введите элементы массива');
  for i:=1 to 3 do
    for j:=1 to 2 do
    read(a[i,j]);
    {вычисление произведения отрицательных элементов массива}
  p:=1;
  c:=0;
  for i:=1 to 3 do begin
    for j:=1 to 2 do
    if a[i,j]<0 then
    p:=p*a[i,j];
    if a[i,j]<0 then
    c:=c+1;
  end;
  if c>0 then writeln('произведение отрицательных элементов = ',p:5:2)
  else writeln('отрицательные элементы не введены');
  {определение максимального элемента}
  max:=a[1,1];
  for i:=1 to 3 do begin
    for j:=1 to 2 do
    if a[i,j]>max then
    max:=a[i,j];
  end;
  writeln('максимальный элемент ',max:5:2);
  readln;
  readln;
end.

type tabl=record
          fam:string;
          beg,plav,shah,nar,str_a:integer;
        end;
var
  a:array[1..8,1..6] of tabl;
  i:byte; {строки}
  j:byte; {столбцы}
  max:integer; {максимальная оценка в таблице}
  bal:integer; {колличество балов победителя}
  c:integer;  {количества символов в строке}
  x:integer;  {максимальный общий бал среди спортсменов}
  k:array[1..5] of integer;  {сумма балов по строкам}
begin
  c:=0;
  max:=0;
  {ввод данных таблицы}
  for i:=1 to 8 do
    for j:=1 to 6 do begin
    if j=1 then begin
      write('введите фамилию спортсмена ');
      readln(a[i,j].fam);
    end; {if}
    if j=2 then begin
      write('оценка по бегу ');
      readln(a[i,j].beg);
      if (a[i,j].beg)>max then
      max:=(a[i,j].beg);
    end; {if}
    if j=3 then begin
      write('оценка по плаванию ');
      readln(a[i,j].plav);
      if (a[i,j].plav)>max then
      max:=(a[i,j].plav);
    end; {if}
    if j=4 then begin
      write('оценка по шахматам ');
      readln(a[i,j].shah);
      if (a[i,j].shah)>max then
      max:=(a[i,j].shah);
    end; {if}
    if j=5 then begin
      write('оценка по нардам ');
      readln(a[i,j].nar);
      if (a[i,j].nar)>max then
      max:=(a[i,j].nar);
    end; {if}
    if j=6 then begin
      write('оценка по стрельбе ');
      readln(a[i,j].str_a);
      if (a[i,j].str_a)>max then
      max:=(a[i,j].str_a);
    end; {if}
  end; {for}
  for i:=1 to 8 do begin
    c:=0;
    for j:=2 to 6 do
    inc(c,(a[i,j].beg or a[i,j].plav or a[i,j].shah or a[i,j].nar or a[i,j].str_a));
    k[i]:=c;
  end; {for}
  x:=0;
  for i:=1 to 5 do
  if k[i]>x then
    x:=k[i];
  writeln('максимальная оценка в таблице ',max);
  writeln('у победителя ',x,' балов');
end.