Расписать что значит каждая строчка в программе

const n=10;
var a:array [1..n] of integer;
i,min,m,t:integer;
begin
randomize;
writeln('Массив из ',n,' элементов:');
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
writeln('Находим минимальное...');
min:=maxint;
for i:=1 to n do
if a[i]<min then
begin
        min:=a[i];
        m:=i;
end;
writeln('Минимальное: A[',m,'] = ',min);
writeln('Меняем с предыдущими..');
if m>1 then
begin
        writeln('Поменяли местами ',m-1,'-е'' и ',m,'-е');
        t:=a[m];
        a[m]:=a[m-1];
        a[m-1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
end.

const n=10; //размер массива-константа
var a:array [1..n] of integer;//массив целых чисел
    i,m,t:integer;//счетчик цикла, индекс минимального, буфер для обмена
begin
randomize; //генерация псевдослучайных чисел
writeln('Массив из ',n,' элементов:');
for i:=1 to n do
 begin
  a[i]:=-50+random(100);//присвоим элементам массива случайные числа от -50 до 49
  write(a[i]:4);//выводим в строку по 4 позиции под число
 end;
writeln;//пустая строка
writeln('Находим минимальное...');
m:=1;//пусть пока минимальное первое
for i:=2 to n do//смотрим со 2 до конца массива
if a[i]<a[m] then m:=i;//если находим меньше, оно минимальное
writeln('Минимальное=',a[m],' его индекс=',m);
if m=1 then write('Перед минимальным нет элементов')//если мин первый
else //иначе
 begin
  writeln('Поменяли местами ',m-1,'-е и ',m,'-е');
  t:=a[m];//запомним мин
  a[m]:=a[m-1];//на его место предыдущий
  a[m-1]:=t;//мин на место предыдущего
  for i:=1 to n do//выведем изменный массив
  write(a[i]:4);
 end;
end.