Удаление столбца в матрице

uses crt;
var a:array[1..5,1..10] of real;
    i,j,n:integer;
        l:boolean;
begin
clrscr;
 
 
    {Если нужно случайное заполнение массива--------}
    randomize;
    for i:=1 to 5 do
        for j:=1 to 10 do
            a[i,j]:=random(50);
    {----------------------------------------------}
    
    {Если нужен ввод с клавиатуры------------------}
    for i:=1 to 5 do
        for j:=1 10 m do
            begin
                write('a[',i,',',j,']= ');
                readln(a[i,j]);
            end;
 
i:=0;
repeat
 
l:=false;
i:=i+1;
for j:=1 to 5 do
 if (a[j,i]<=0) then l:=true;
 
until(l=false)or(i>=10);
 
if l=false then 
  for j:=1 to 5 do
    for n:=i to 9 do
       a[j,n]:=a[j,n+1];
   
 
for i:=1 to 5 do
    begin
        for j:=1 to 9 do
            write(a[i,j]:3:0);
        writeln;
    end;
readln;
    {---------------------------------------------}
end.

uses crt;
const
m=5;
n=10;
var a:array[1..m,1..n] of integer;
    i,j,kp,jp,n1:integer;
begin
clrscr;
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(10)-1;
for j:=1 to n do{ищем первый эстолбец из положительных элементов(0-не положительное)}
 begin
  kp:=0;
  for i:=1 to m do
  if a[i,j]>0 then kp:=kp+1;{считаем положительные в столбце}
  if kp=m then{если все}
   begin
    jp:=j;{запоминаем номер столбца}
    break;{дальше не ищем}
   end;
  end;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  if j=jp then
   begin
    textcolor(12);{выделим найденный столбец ярко-красным цветом}
    write(a[i,j]:3,' ');
   end
  else
   begin
    textcolor(15);{остальные по умолчанию,обычно белый}
    write(a[i,j]:3,' ');
   end;
  writeln;
 end;
for j:=jp to n-1 do{удаляем столбец путем сдвига все столбцов за ним на 1 влево}
for i:=1 to m do
a[i,j]:=a[i,j+1];
writeln('Удаление столбца:');
for i:=1 to m do
 begin
  for j:=1 to n-1 do
  write(a[i,j]:3,' ');
  writeln;
 end;
readln
end.