Помогите с решение задачи по информатике!!!

const
a = -20;
b = -1;
c = 1;
d = 20;
var
ar : array[1..6,1..5] of integer;
i,j,max,min,indIMin,indJMin,indIMax,indJMax,temp:integer;
begin

for i := 1 to 6 do begin // в этих двух циклах выводим матрицу 6*5
for j := 1 to 5 do begin
if ((i mod 2 = 0) and (j mod 2 <> 0)) or (((i mod 2 <> 0) and (j mod 2 = 0))) then ar[i][j] := random(b - a + 1) + a // тут выводим случайные значения в шахматном порядке
else ar[i][j] := random(d - c + 1) + c;
write(ar[i][j]:4);
if(i = 1) and (j = 1) then begin min := ar[i][j]; max := ar[i][j]; indIMax := 1; indJMax := 1; indIMin := 1; indJMax := 1; end; // инициализируем (присваиваем первое значение) макс, мин.
if(ar[i][j] > max) then begin max := ar[i][j]; indIMax := i; indJMax := j; end; // находим макс
if(ar[i][j] < min) then begin min := ar[i][j]; indIMin := i; indJMin := j; end; // находим мин
end;
writeln();
end;
writeln();

temp := ar[indIMax][indJMax]; // меняем макс и мин местами
ar[indIMax][indJMax] := ar[indIMin][indJMin];
ar[indIMin][indJMin] := temp;

for i := 1 to 6 do begin // выводим новую матрицу
for j := 1 to 5 do
write(ar[i][j]:4);
writeln();
end;

end.

Только непонятно, в чем смысл шахматного порядка. Для решения задачи это абсолютно ненужные данные. Может неточно условие переписал?

Решать мне это в лом, но одно скажу точно, школьные задачи по информатике бессмысленны и беспощадны. Тот кто их придумывает делает свою работу на от##бись.

бл. так в excel или pascal?

"Но я понятия не имею как это решать помогите сделать"

Меньше надо прогуливать учебу