Ввести матрицу А, найти сумму четных элементов, построить матрицу C по заданной формуле

var
  sum, i, j, m ,n : integer;
  A: array [0..100,0..100] of integer;
  C: array [0..100,0..100] of integer;
begin
  sum:= 0;
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: ');
  readln(m);
  writeln('Введите элементы массива A: ');
  for i:=1 to n do
    for j:=1 to m do
      begin
      write('A[',i,',',j,']=');
      readln(A[i,j]);
      if A[i,j] mod 2 =0 then sum:= sum + A[i,j];
      end;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write( A[i,j]:6);
      writeln;
    end;
  writeln('Сумма четных элементов массива A ', sum);
  for j:=1 to m do
    begin
      C[1,j]:= A[3,j];
      C[2,j]:= 2 * A[2,j] + 10;
      C[3,j]:= - A[1,j];
    end;
  writeln('Массив C:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write( C[i,j]:6);
      writeln;
    end;
  readln;
end.