Ввести двумерный массив размером 7*4. Найти наименьший элемент массива. Поменять строку, содержащую этот элемент, с последней строкой массива — Pascal(Паскаль)

Program Fun_with_arrays;

const
  ROW = 7;
  COL = 4;

var
  a: array [1 .. ROW, 1 .. COL] of integer;
  temp: array [1 .. COL] of integer;
  i, j, min, ind: integer;

begin
  for i := 1 to ROW do
    for j := 1 to COL do
      a[i][j] := random(100);
  writeln('Here is your matrix');
  for i := 1 to ROW do
  begin
    for j := 1 to COL do
      write(a[i][j]:4);
    writeln;
  end;
  for j := 1 to COL do
    temp[j] := a[ROW][j];
  min := a[1][1];
  for i := 1 to ROW do
    for j := 1 to COL do
      if a[i][j] < min then
      begin
        min := a[i][j];
        ind := i;
      end;
  for j := 1 to COL do
    a[ROW][j] := a[ind][j];
  for j := 1 to COL do
    a[ind][j] := temp[j];
  writeln('Here is your changed matrix');
  for i := 1 to ROW do
  begin
    for j := 1 to COL do
      write(a[i][j]:4);
    writeln;
  end;
  readln;

end.