Дан целочисленный двумерный массив, размерности n×m, при n=3 m=6. Поменять местами первый и последний элемент. На pascal

program study235;

const n = 3;

         m = 6;

type mas = array [1..n, 1..m] of integer;

var a: mas;

     i, j, temp: Integer;

begin

writeln('Дан целочисленный двумерный массив, размерности n × m, при n = 3 m = 6. Поменять местами первый и последний элемент.');

writeln;

randomize;

writeln('Исходный массив:');

for i := 1 to n do

 for j := 1 to m do

 begin

 a[i, j] := random(201);

 write(a[i, j], '; ');

 if (j = 6) then writeln;

 end;

temp := a[1, 1];

a[1, 1] := a[3, 6];

a[3, 6] := temp;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

 for j := 1 to m do

 begin

  write(a[i, j], '; ');

  if (j = 6) then writeln;

 end;

readln;

end.