Код программы есть, а алгоритм не понятен. Вычисление двумерного массива

uses Crt;
type
  PList = ^TList;
  TList = record
    data: Integer;
    prior: PList;
    next: PList;
    to_down: PList;
  end;
 
  TMyList = object
    top: PList;
    constructor Init;
    destructor RemoveList;
    procedure Print;
    procedure Insert(_data, positionX, positionY: Integer);
    function Get(positionX, positionY: Integer): Integer;
  end;
 
constructor TMyList.Init;
begin
  top:=nil;
end;
 
 
destructor TMyList.RemoveList;
var
  q: Plist;
begin
  if top=nil then writeln('List not init')
  else
  begin
    while top <> nil do
    begin
      q:=top;
      top:=top^.next;
      dispose(q);
    end;
  end;
end;
 
procedure TMyList.Print;
var start, p :PList;
begin
  if top=nil then writeln('List not init')
  else
  begin
    start:=top;
    while(start<>nil) do
    begin
      p:=start;
      while(p<>nil) do
      begin
        write(p^.data, ' ');
        p:=p^.to_down;
      end;
      writeln;
      start:=start^.next;
    end;
    WriteLn;
  end;
end;
 
procedure TMylist.Insert(_data, positionX, positionY: Integer);
var
  p,x: PList;
  i: Integer;
begin
  new(x);
  x^.data:=_data;
  p:=top;
  if (top=nil) and (positionX=1) and (positionY=1) then
  begin
    top:=x;
    top^.next:=nil;
    top^.to_down:=nil;
  end
  else
  begin
    for i:=1 to positionX-2 do
      p:=p^.next;
    if (positionY>1) and (positionX<>1) then
      p:=p^.next;
    if(positionY<>1) then
    for i:=1 to positionY-2 do
      p:=p^.to_down;
    if(positionY=1) then
    begin
      p^.next:=x;
      x^.next:=nil;
      x^.to_down:=nil;
    end
    else
    begin
     p^.to_down:=x;
     x^.to_down:=nil;
    end;
  end;
end;
 
function TMyList.Get(positionX, positionY : Integer): Integer;
var j: Plist;
    i: Integer;
begin
  j:=top;
  for i:=1 to positionX-1 do
    j:=j^.next;
  for i:=1 to positionY-1 do
    j:=j^.to_down;
  Get:=j^.data;
end;
 
 
var
  List1: TMyList;
  m,b,k: Integer;
  n: Byte;
begin
   Clrscr;
   List1.Init;
   Writeln('Enter razmer massivs=');
   Readln(n);
   for m:=1 to n do
     for b:=1 to n do begin
       Writeln(m,',',b,'=');
       Readln(k);
         List1.Insert(k,m,b);
         end;
   WriteLn('Massiv = ');
   List1.Print;
   Write('what element do you want? ');
   Readln(m,b);
   Writeln(List1.Get(m,b));{
   List1.RemoveList;}
   Readln;
end.

program z1;
uses crt; {подключаемый модуль}
var a:array[1..100,1..100] of integer;
    i,j,n:integer;
begin
clrscr; {очистка экрана}
randomize;
write ('Введите размерность массива: '); readln(n);
writeln ('Массив: ');
 for i:=1 to n do         {начало заполнения массива}
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)+1;
     write(a[i,j]:3);        {конец заполнения массива и вывод на экран}
    end;
   writeln;
  end;
  writeln ('Заполните значения выводимого элемента из массива.');
  write ('Введите номер строки и столбца: '); readln(i,j);
  write ('Данный элемент массива равен ',a[i,j]);
  readln;
end.