Перестановка столбцов матрицы и строки.

[MaGWaY_minsk]

Доброго времени суток. Помогите пожвлуйста. Не могу понять, каким образом можно переставить местами столбцы матрицы M x N размеров, по позрастанию элементов последней строки.

И, если можно, помогите решить следующее:
1. Ученики зашифровывают свои записки, записывая слова наоборот. Написать программу которая шифрует и расшифровывает предложения.

[Sazary]

Про матрицу:

uses crt;
const m=5; n=6;
var a : array[1..m,1..n] of integer;
i,j,min,tmp : integer;

begin
clrscr;
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(20);
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln('--------');
{-------}
for i:=1 to n-1 do
  begin
  min := i;
  for j:=i+1 to n do
    if a[m,j]<a[m,min] then min := j;
  for j:=1 to m do
   begin
   tmp := a[j,i];
   a[j,i] := a[j,min];
   a[j,min] := tmp;
   end;
  end;

for i:=1 to m do
 begin
 for j:=1 to n do
  write(a[i,j]:4);
 writeln;
 end;

readln;
end.

[Sazary]

Про записку:

uses crt;
const mn = [' ','.',',','!','?',':','-'];
var
s,s2,wrd : string;
i,len,k : integer;
begin
clrscr;
writeln('Enter string:');
readln(s);
writeln;
i:=1;
len := length(s);
s2 := '';
while i<=len do
  begin
  while (s[i] in mn) and (i<=len) do
    begin
    s2 := s2 + s[i];
    inc(i);
    end;
  wrd := '';
  while (not (s[i] in mn)) and (i<=len) do
    begin
    wrd := wrd + s[i];
    inc(i);
    end;
  for k:=length(wrd) downto 1 do
    s2 := s2 + wrd[k];
  s2 := s2 + s[i];
  inc(i);
  end;
writeln(s2);
readln;
end.

[MaGWaY_minsk]

Огромное спасибо!!!