Необходимо подправить программу

type
mas=array[1..10,1..10] of integer;
var
a:mas; n,m,i,j:integer ;
{Процедура ввода массива }
procedure input_mas(n,m:integer; var a:mas);
begin
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
end;
{Функция определения минимального элемента главной диагонали}
function min( n,m,i,j:integer; a:mas ):integer;
var
k:integer ;
begin
for i:=2 to n do
if a[i,i] < a[1,1] then begin min:=a[i,i]; k:=i; end
else begin min:=a[1,1]; k:=1; end;
end;
{Функция удаления столбца матрицы}
function del( n,m:integer; a:mas ):integer;
var
k:integer ;
begin
for i:=1 to n do
for j:=k to m do
a[i,j]:=a[i,j+1];
for i:=1 to n do
begin
for j:=1 to m-1 do readln(a[i,j]);
end;
end;
{Процедура вывода матрицы}
procedure print_mas(n,m:integer; a:mas);
begin
for i:=1 to n do
begin
for j:=1 to n do write( a[i,j],' ');
writeln;
end;
end;
{Исполнительная часть основной программы}
begin
writeln('Введите n<=10 , m<=10');
readln (n,m);
writeln('Введите элементы массива по строкам');
input_mas(n,m,a);
writeln('Исходная матрица');
print_mas(n,m,a);
writeln('Минимальный элемент главной диагонали =',min (n,m,i,j,a));
writeln('Конечная матрица');
del (n,m,a);
readln;
end.