Пояснить работу кода

procedure scan_cod(str,stc:TELint; matr:Cmatr);//объект класса матрица
const
  delta_x=12;
  delta_y=1;
var
  ch:char;
  max_x,i,j,max_y,x,y,f1,f2,f3:TElint;//integer
  g:TElem;//double
  cod:TElint;
begin
 max_x:=stc*delta_x;
 max_y:=str;
 x:=6;
 y:=2;
 i:=1;
 j:=1;
 g:=0;
 f1:=str div str_m;
 f3:=str mod str_m;
 f2:=1;
 gotoXY(3,37);
 write('СТРОКА ',j,' СТОЛБЕЦ ',i);
 gotoXY(3,38);
 write('                        ');
 gotoXY(3,38);
 matr.getelem(j,i,g);
 write(g);
 gotoXY(35,37);
 write('НАЖМИТЕ ESC ДЛЯ ВОЗВРАТА В ПРЕДЫДУЩЕЕ МЕНЮ');
 gotoXY(35,38);
 write('НАЖМИТЕ ENTER ДЛЯ РЕДАКТИРОВАНИЯ ТЕКУЩЕГО ЭЛЕМЕНТА');
 repeat
   gotoXY(x,y);
   textcolor(12);
   write;
   ch:=readkey;
   cod:=ord(ch);
   case cod of
     72 : begin //стрелка вверх
            if y>2 then dec(y);
            if j>1 then  dec(j);
          end;
     75 : begin  //стрелка влева
            if x>7 then dec(x,delta_x);
            if i>1 then dec(i);
          end;
     77 : begin  //стрелка вправо
            if x<max_x-delta_x then inc(x,delta_x);
            if i<stc then inc(i);
          end;
     80 : begin //стрелка вниз
            if y<=max_y then inc(y);
            if j<str then inc(j);
          end;
     13 : begin  //ввод
            gotoXY(10,35);
            write('введите число');
            gotoXY(25,35);
            err1(g,max_elem);
            matr.putelem(j,i,g);
            matr.getelem(j,i,g);
            gotoXY(x-5,y);
            write(g:t1:t2);
            gotoXY(5,35);
            write('                                                                                                 ');
          end;
     73 : begin   //pgup
 
          end;
     81 : begin //PgDn
            if f3=0 then
               begin
                 gotoXY(5,33);
                 write('f1=',f1,'  f2=',f2,'  f3=  ',f3);
                 readkey;
                 inc(f2);{вот здесь собственно говоря и вся загвоздка}
                 textcolor(15);
                 x_1:=str_m+1;
                 x_2:=f2*str_m;
                 write_matrix(x_1,y_1,x_2,y_2, matr);
                 scan_cod(str_m*f2,stc_m,matr);
               end
 
            else
               begin
               end;
 
          end;
    115 : begin   //ctrl+стрелка влево
 
          end;
    116 : begin  //ctrl+стрелка вправо
 
          end;
   end;
   textcolor(15);
   gotoXY(3,37);
   write('                        ');
   gotoXY(3,37);
   write('СТРОКА ',j,' СТОЛБЕЦ ',i);
   matr.getelem(j,i,g);
   gotoXY(3,38);
   write('                        ');
   gotoXY(3,38);
   write(g);
 until ord(ch)=27;
end;
//процедура вывода матрицы на экран
procedure write_matrix(var x_1,y_1,x_2,y_2:TELint;var matr:Cmatr);
var
i,j:TELint;
begin
  clrscr;
  gotoXY(1,1);
  begin
    for i:=x_1 to x_2 do
        begin
          writeln;
          for j:=y_1 to y_2 do
              begin
                matr.getelem(i,j,elem);
                write(elem:t1:t2);
              end;
        end;
  end;
end;