[Pascal] Задачи на матрицы. Прошу подсказки.

[Knife]

1. Задача: "Найти наибольший и наименьший элемент прямоугольноматрицы и поменять их местами." Вот я решил задачу, нашел наибольший и нименьший элемент. Помоги плз, что нужно дописать чтобы поменять их местами.

Program Mass2;
const n=3; m=2;
var a:array[1..n,1..m] of integer;
i,j,maxi,maxj,mini,minj:integer;
max,min:real;
begin
Writeln('Vvod elementov po strokam');
for i:=1 to n do
begin
for j:=1 to m do
Read(a[i,j]);
//Readln;
end;
for i:=1 to n do
begin
for j:=1 to m do
Writeln(a[i,j]);
// Writeln;
end;
//readln;
max:=a[1,1]; min:=a[1,1];
// maxi:=1; maxj:=1; mini:=1; minj:=1;
for i:=1 to n do
for j:=1 to m do
begin
if max<=a[i,j] then
begin
max:=a[i,j]; //maxi:=i; maxj:=j;
end;
if min>a[i,j] then
begin
min:=a[i,j]; //mini:=i; minj:=j;
end;
end;
//a[mini,minj]:=max; a[maxi,maxj]:=min;
// for i:=1 to n do
// begin
// for j:=1 to m do
// Write(a[i,j]:7:1);
// Writeln;
//end;
// readln;
write('Ioaao mao=');
writeln(max);
write('min=');
writeln(min);

end.

2 Задача: "решить матрицу." Тут у меня маленький вопрос. За что отвечает переменная "s" я вот не знаю. прошу подсказать, если не трудно.
Вот само решение:

uses crt;
const n=6; {строки}
m=6; {столбцы}
var a:array[1..n,1..m] of integer;
i,s:byte;
begin
s:=1;
while s<>m+1 do
begin
if s mod 2 = 1 then
begin
for i:=1 to n do
begin
a[s,i]:=1;
end;
end
else
begin
for i:=1 to n do
begin
if i mod 2 = 1 then
a[s,i]:=1
else
a[s,i]:=0;
end;
end;
inc(s);
end;
begin
for i:=1 to n do {вывод массива}
begin
for s:=1 to m do
write (a[i,s],' ');
writeln;
end;
end;
end.

[koma_grusha]

1) используй какую-нибудь переменную, например х, запомни в нее мах, вместо мах поставь min, а вместо min - переменную х
2) это просто вспомогательная переменная, хоть как ее назови

совет: пиши коды в тегах (см правила) и используй отступы.

[alex_fcsm]

1. Вы практически ее сами и решили. ТОлько почему-то правильные строки как раз закомментировали. Нужно искать по сути дела не сами элементы(их значения), а места куда их переставлять, то есть только индексы.

Program Mass2;
uses crt;
const n=3; m=2;
var a:array[1..n,1..m] of integer;
i,j,maxi,maxj,mini,minj,temp:integer;
max,min:real;
begin
Writeln('Vvod elementov po strokam');
for i:=1 to n do
begin
for j:=1 to m do
Read(a[i,j]);
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:3);
Writeln;
end;
 maxi:=1; maxj:=1; mini:=1; minj:=1;
 for i:=1 to n do
  for j:=1 to m do
    begin
     if a[maxi,mini]<a[i,j] then
     begin
      maxi:=i; maxj:=j;
     end
     else if a[mini,minj]>a[i,j] then
              begin
               mini:=i; minj:=j;
              end;
    end;
 temp:=a[mini,minj];
 a[mini,minj]:=a[maxi,maxj];
 a[maxi,maxj]:=temp;
 writeln('==============');
 writeln;
 for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:3);
Writeln;
end;
end.

2. Как я понял задача - прописать в четных столбцах четных строк 0. Тогда s - строка с которой мы работаем в данный момент.
Можно было покороче написать
uses crt;

const n=6; 
m=6; 
var a:array[1..n,1..m] of integer;
i,j:byte;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   if (i mod 2=0) and (j mod 2=0) then a[i,j]:=0
      else a[i,j]:=1;
   write(a[i,j]:2);
  end;
  writeln;
 end;
end.