Пожалуйста,помогите написать коментарий к каждой строчке.

[ivan6799]

uses crt;
const n=5;
type matr=array[1..n,1..n] of integer;
function det(var x:matr; t:integer):integer;
var i,j,k:integer;
    s,b:integer;
    minor:matr;
begin
if t=1 then det:=x[1,1]
else
 begin
  s:=0;
  for k:=1 to t do 
   begin
      for i:=1 to t-1 do
        for j:=1 to k-1 do
         minor [i,j]:=x[i+1,j];
    for i:=1 to t-1 do
      for j:=k to t-1 do
       minor [i,j]:=x[i+1,j+1];
       b:=det(minor, t-1);
         if odd(k) then 
            s:=s+x[1,k]*b
           else s:=s-x[1,k]*b;
     end;
    det:=s;
   end;
end;
var a:matr;
  i,j:integer;
begin

for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Определитель=',det(a,n));
readln
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Alex11223]

Зачем?

Лучше вы расскажите что вам понятно и что непонятно