Удалить все столбцы матрицы, содержащие только положительные элементы

uses crt;
const m=5;//кол. строк
type mas=array[1..m] of integer;//столбец
     mtr=array[1..10]of mas;//матрица=массив столбцов
procedure Vvod(var mt:mtr;n:byte);
var i,j:byte;
begin
for j:=1 to n do //ввод по столбцам
for i:=1 to m do
mt[j][i]:=-2+random(20);
end;
procedure Vyvod(mt:mtr;n:byte;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to m do //вывод по строкам
 begin
  for j:=1 to n do
  write(mt[j][i]:4);
  writeln;
 end;
end;
//определение все ли положительные в столбце
function Poloz(a:mas):boolean;
var i,j:byte;
begin
j:=0;
for i:=1 to m do
if a[i]>0 then j:=j+1;
Poloz:=j=m
end;
//удаление столбца
procedure Udal(var mt:mtr;i:byte;var k:byte);
var j:byte;
begin
if i=k then k:=k-1
else
 begin
  for j:=i to k-1 do
  mt[j]:=mt[j+1];
  k:=k-1;
 end
end;
var a:mtr;
    n,i:byte;
begin
randomize;
n:=10; //кол. столбов в начале
Vvod(a,n);
Vyvod(a,n,'Исходная матрица:');
i:=1; //удаление
while i<=n do
 begin
  if Poloz(a[i])then Udal(a,i,n)
  else i:=i+1
 end;
if n=10 then write('Нет столбца из положительных элементов')
else if n=0 then write('Все столбцы удалены')
else Vyvod(a,n,'Удаление столбцов из положительных элементов:');
end.