помогите пожалйсто описать каждую строчку проги

[Rakfeller]

program matrica;
uses crt;
type matrix=array[1..10,1..10] of integer;
var A,B :matrix;
na,ma,ca,nb,mb,cb:integer;


procedure vvodmatr (n,m:integer; var k:matrix);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do read(k[i,j]);
readln;
end;
end;
procedure min(n,m:integer; k:matrix);
var i,j,a,mi,mj:integer;
begin
a:=k[1,1];
mi:=1; mj:=1;
for i:=1 to n do
for j:=1 to m do
if a>k[i,j] then
begin
a:=k[i,j];
mi:=i;
mj:=j;
end;
writeln('min element matrix raven ',a);
writeln('ego indseksi: [',mi,',',mj,']');
end;
function count(n,m:integer; k:matrix):integer;
var c,i,j:integer;
begin
c:=0;
for i:=1 to n do
for j:=1 to m do
if (k[i,j]>0) and (k[i,j] mod 3 =0) then c:=c+1;
count:=c;
end;

begin
clrscr;
writeln('vvtdite razmer matrix A:');
readln(na,ma);
writeln('vvtdite razmer matrix B:');
readln(nb,mb);
writeln('vvedite matrix A');
vvodmatr(na,ma,A);
writeln('vvedite matrix B');
vvodmatr(nb,mb,B);
ca:=count(na,ma,A); cb:=count(nb,mb,B);
if ca>cb then begin writeln('matrix A: '); min(na,ma,A);end
else begin writeln('matrix B:'); min(nb,mb,B);end;
end.