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

uses crt;
const n=5;
      s=6;
var a:array [1..n,1..s] of integer;
    m,i,j,k,p,t:byte;
begin
clrscr;
randomize;
m:=s;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
j:=1;k:=0;
while j<=m do
if a[1,j]>a[n,j] then
 begin
  k:=k+1;
  for t:=1 to n do
  for p:=j to m-1 do
  a[t,p]:=a[t,p+1];
  m:=m-1;
 end
else j:=j+1;
writeln('Результат удаления столбцов:');
if k=s then write('Все столбцы удалены!')
else
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.