В двумерном массиве удалить все столбцы,в которых первый элемент больше последнего

uses crt;
const max=10;
var a:array[1..max,1..max] of integer;
    m,n,m1,i,j,k:integer;
begin
randomize;
repeat
write('Количество строк до ',max,' n=');
readln(n);
until n in [1..max];
repeat
write('Количество столбцов до ',max,' m=');
readln(m);
until m in [1..max];
m1:=m;{запомним количество столбцов}
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
{удаление столбцов по условию}
j:=1;
while j<=m do
if a[1,j]>a[n,j] then{если первый больше последнего}
 begin
  for k:=j to m-1 do{от этого столбца до предпоследнего}
  for i:=1 to n do{всем элементам столбцов}
  a[i,k]:=a[i,k+1];{присваиваем значения правого}
  m:=m-1;{уменьшаем количество}
 end
else j:=j+1;{если есть не положительные, влево}
if m=0 then writeln('Все столбцы удалены!')
else if m=m1 then write('Нет столбцов для удаления')
else
 begin
  writeln('Удаление столбцов по условию:');
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
 end;
end.