массивы

[Новичок_2]

Здравствуйте! Мой код прошел 14 из 20 тестов. 6 тестов не прошел, наверное, по времени. Подскажите, пожалуйста, другие способы
решения задачи.

Задача

Задан двумерный массив. Напишите программу, которая в этом массиве находит столбец, содержащий максимальный элемент, находит столбец содержащий минимальный элемент и меняет местами эти два столбца. Из всех столбцов, содержащих максимальный элемент, надо выбрать столбец с максимальным номером. Из всех столбцов, содержащих минимальный элемент, надо выбрать столбец с минимальным номером.
Формат входных данных.
В первой строке входного файла записаны два числа N и M(1<=N<=100, 1<=N<=100). Далее следует N строк по M чисел в каждой строке - элементы двумерного массива. Все элементы по модулю не превосходят 1000.
Формат входных данных.
В выходной файл выведите полученный двумерный массив.

var a:array[1..100,1..100] of integer;
max,min:integer;
i,j,n,m,l,k:word;
procedure swap (var a,b:integer);
var t:integer;
begin 
 t:=a; a:=b; b:=t;
 end;
 procedure Openfies;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
end;
begin
Openfies;
read(n,m);
for  i:=1 to n do begin
    for  j:=1 to m do begin
      read(a[i,j]);
    end;
  end;  
max:=a[1,1]; l:=1;min:=a[1,1]; k:=1;
for i:=1 to n do begin
   for j:=1 to m do begin
   if max<=a[i,j] then begin max:=a[i,j]; l:=j; end;
   if min>a[i,j] then begin min:=a[i,j]; k:=j; end;
   end;
 end;
 i:=1;j:=1;
 while i<=n do begin
    while j<= m do begin
   if a[i,j]=min then begin  k:=j; j:=m;i:=n; end;
   j:=j+1;
    end;
   i:=i+1;
 end;
 for  i:=1 to N do 
   swap(a[i,l], a[i,k]);
 for  i:=1 to N do begin
    for  j:=1 to M do begin
      write(a[i,j],' ');
    end;
    writeln;
    end; 
end.

[Serge_Bliznykov]

Сообщение от Новичок_2

i:=1;j:=1;
 while i<=n do begin
    while j<= m do begin
   if a[i,j]=min then begin  k:=j; j:=m;i:=n; end;
   j:=j+1;
    end;
   i:=i+1;
 end;

не понимаю, зачем этот кусок кода. я бы его просто выкинул!!

max:=a[1,1]; l:=1;min:=a[1,1]; k:=1;
for i:=1 to n do begin
   for j:=1 to m do begin
   if max<=a[i,j] then begin max:=a[i,j]; l:=j; end;
   if min>a[i,j] then begin min:=a[i,j]; k:=j; end;
   end;
 end;
 if l<>k then
   for i:=1 to N do swap(a[i,l], a[i,k]);
 for  i:=1 to N do begin
    for  j:=1 to M do write(a[i,j],' ');
    writeln;
 end;