Записать массив. Перевести с Pascal - C (СИ)

program pr_5;
 
var
  min, max: integer;
  A: array[1..5, 1..10] of integer;
  i, j, n, m, Nmin, Mmin, Nmax, Mmax: byte;
 
begin
  n := 5;
  m := 10;
  for i := 1 to n do
    for j := 1 to m do
      A[i, j] := random(50);
  min := A[i, j];
  Nmin := 1;
  Mmin := 1;
  for i := 1 to 5 do
    for j := 1 to 10 do
      if A[i, j] < min then
      begin
        min := A[i, j];
        Nmin := i;
        Mmin := j;
      end;
  max := A[i, j];
  Nmax := 1;
  Mmax := 1;
  for i := 1 to n do
    for j := 1 to m do
      if A[i, j] > max then
      begin
        max := A[i, j];
        Nmax := i;
        Mmax := j;
      end;
  A[Nmax, Mmax] := min;
  A[Nmin, Mmin] := max;
  for i := 1 to 5 do
  begin
    for j := 1 to 10 do
      write(A[i, j]:5);
    writeln;
  end;
end.