Непонятная процедура...

uses crt;
type matr=array[1..50,1..50] of real;
procedure RemoveCols(var a:matr;var m,n:byte;k1,k2:byte);
var i,j,l,p:byte;
begin
if k1>n then exit {если за пределами матрицы, ничего не меняем}
else if (k1<n)and(k2>n)then{если начало в матрице, а конец нет, то от начала до конца матрицы}
for p:=1 to n-k1+1 do{сколько столбцов надо удалить}
  begin
    for i:=1 to m do
    for l:=k1 to n do
    a[i,l]:=a[i,l+1];{сдвигаем столько раз столбцы матрицы влево к пначальному}
    n:=n-1;{уменьшаем количество столбцов}
  end
else if(k1<n)and(k2<=n) then{если оба конца в матрице, далаем тоже только до к2}
for p:=1 to k2-k1+1 do
  begin
     for i:=1 to m do
    for l:=k1 to k2 do
    a[i,l]:=a[i,l+1];
    n:=n-1;
  end;
end;
var m:matr;
    x,y,i,j,k1,k2:byte;
begin
clrscr;
randomize;
write('Количество строк x=');
readln(x);
write('Количество столбцов y=');
readln(y);
writeln('Исходная матрица:');
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    m[i,j]:=random(20);
    write(m[i,j]:6:2);
   end;
  writeln;
 end;
write('Первый столбец k1=');readln(k1);
repeat
write('Второй столбец k2=');readln(k2);
until k2-k1>1;
RemoveCols(m,x,y,k1,k2);
writeln('Измененная матрица:');
for i:=1 to x do
 begin
  for j:=1 to y do
  write(m[i,j]:6:2);
  writeln;
 end;
write('Новые размеры матрицы: x=',x,'  y=',y);
readln
end.