Mit csinál ez a program? (a többi lent)

Ha vkinek van ideje lépésről lépésre is jó lenne elmagyarázni, de h kb mit csinál, miről van itt szó az kellene. Elüre is köszi:)

program matrix_read_write;

uses wincrt;

var

a:array[1..100,1..100] of integer;

i,j,m,n:integer;

begin

writeln('Enter length of matrix !');

readln(n);

writeln('Enter height of matrix !');

readln(m);

for i:=1 to n do

for j:=1 to m do

read(a[i,j]);

for i:=1 to n do

begin

writeln;

for j:=1 to m do

write(a[i,j],' ');

end;

end.