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

var
   mas:array [1..3,1..4] of longint;
   i,x,x1,y,min,max,xmi,xma,:longint;
begin
   for y:=1 to 4 do{ввод массива}
      for x:=1 to 3 do
         read(mas[x,y]);
   x:=1;
   i:=3;
   while(x<=i) do
   begin
      if(mas[x,1]>mas[x,4]) then{в случае, если условие сноса столбца выполнено}
      begin
         for x1:=x to i-1 do
            for y:=1 to 4 do
               mas[x1,y]:=mas[x1+1,y];{передвижение элементов}
         i:=i-1;{уменьшение количества "видимых" столбцов}
      end;
      x:=x+1;{разбор следующего столбца}
   end;
   y:=1;
   while(y<=4) do{проверим все строки}
   begin
      for x:=1 to i do{поиск максимума и минимума}
      begin
         if(x=1) then{если первый элемент, то это минимум}
         begin
            min:=mas[x,y];
            max:=mas[x,y];
            xma:=x;{запоминание места максимума и минимума соответсвенно}
            xmi:=x;
         end;
         if(mas[x,y]>max) then{если больше максимума, то новый максимум}
         begin
            xma:=x;
            max:=mas[x,y];
         end;
         if(mas[x,y]<min) then{тоже с минимумами}
         begin
            min:=mas[x,y];
            xmi:=x;
         end;
      end;
      mas[xmi,y]:=max;{замена минимума и максимума местами}
      mas[xma,y]:=min;
      y:=y+1;{разбор следующей строки}
   end;
   for x:=1 to i do{вывод нужной части матрицы}
   begin
      for y:=1 to 4 do
         write(mas[x,y],' ');
      writeln;
   end;
end.

***
   x:=1;
   i:=3;
   while(x<=i) do
   begin
      if(mas[x,1]>mas[x,4]) then{в случае, если условие сноса столбца выполнено}
      begin
         for x1:=x to i-1 do{будем копировать посимвольно каждый оставшийся столбец}
            for y:=1 to 4 do{для данного столбца для каждой строки скопируем элемент, соседний с ним по оси x}
               mas[x1,y]:=mas[x1+1,y];
         i:=i-1;{уменьшение количества "видимых" столбцов, другими словами уменьшение счётчика, отвечающего за количество столбцов}
      end;
      x:=x+1;{переход к следующему столбцу}
   end;
   ***

var
   mas:array [1..3,1..4] of longint;
   i,x,x1,y,a,m,n,j:longint;
begin
clrscr;
randomize;
    x:=1;
   i:=3;
   writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
  a[i,j]:=random(11)-10;
    write(a[i,j]:4);
    end;
     while(x<=i) do
   begin
      if(mas[x,1]>mas[x,4]) then{в случае, если условие сноса столбца выполнено}
      begin
         for x1:=x to i-1 do{будем копировать посимвольно каждый оставшийся столбец}
            for y:=1 to 4 do{для данного столбца для каждой строки скопируем элемент, соседний с ним по оси x}
               mas[x1,y]:=mas[x1+1,y];
         i:=i-1;{уменьшение количества "видимых" столбцов, другими словами уменьшение счётчика, отвечающего за количество столбцов}
      end;
      x:=x+1;{переход к следующему столбцу}
   end;
 
      end.

uses crt;
var mas,a:array [1..3,1..4] of longint;
 i,x,x1,y,m,n,j:longint;
 begin
 clrscr;
 randomize;
 x:=1;
 i:=3;
 writeln('Исходный массив:');
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 a[i,j]:=random(11)-10;
 write(a[i,j]:4);
 end;
 while(x<=i) do
 begin
 if(mas[x,1]>mas[x,4]) then{в случае, если условие сноса столбца выполнено}
 begin
 for x1:=x to i-1 do{будем копировать посимвольно каждый оставшийся столбец}
 for y:=1 to 4 do{для данного столбца для каждой строки скопируем элемент, соседний с ним по оси x}
 mas[x1,y]:=mas[x1+1,y];
 i:=i-1;{уменьшение количества "видимых" столбцов, другими словами уменьшение счётчика, отвечающего за количество столбцов}
 end;
 x:=x+1;{переход к следующему столбцу}
 end;
 end;
 end.

uses crt;
var mas,a:array [1..3,1..4] of integer;
    i,x,x1,y,m,n,j:byte;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to 3 do
 begin
  for j:=1 to 4 do
   begin
    a[i,j]:=random(11)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
x:=1;
i:=4;
while x<=i do
if(a[1,x]>a[3,x]) then{в случае, если условие сноса столбца выполнено}
 begin
  if x=i then i:=i-1
  else
   begin
    for x1:=x to i-1 do{будем копировать посимвольно каждый оставшийся столбец}
    for y:=1 to 3 do{для данного столбца для каждой строки скопируем элемент, соседний с ним по оси x}
    a[y,x1]:=a[y,x1+1];
    i:=i-1;{уменьшение количества "видимых" столбцов, другими словами уменьшение счётчика, отвечающего за количество столбцов}
   end
 end
else x:=x+1;{переход к следующему столбцу}
if i=0 then write('Все столбцы удалены')
else
 begin
  writeln('Удаление столбцов:');
  for y:=1 to 3 do
   begin
    for x1:=1 to i do
    write(a[y,x1]:4);
    writeln;
   end;
  end;
end.