В одномерном массиве состоящем из n вещественных элементов

[VladimirAvakov]

Ребят есть код программы:

uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min:integer;
 
begin
 clrscr;
 write('Массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do if m[i]<0 then inc(k);
 write('Всего отрицательных элементов - ',k);
 min:=1;
 for i:=1 to n do if abs(m[i])<abs(m[min]) then min:=i;
 k:=0;
 for i:=min+1 to n do k:=k+abs(m[i]);
 writeln('Сумма модулей элементов после MIN = ',k);
 for i:=1 to n do if m[i]<0 then m[i]:=sqr(m[i]);
 for i:=1 to n do
 for j:=1 to n-1 do
 if m[j]>m[j+1] then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

Можете расписать каждую строчку, что за что отвечает? Спасибо, очень выручите!

[Stilet]

uses crt; Подключаем модуль для консоли
const n=10; Описываем константу со значением 10
var m:array[1..n]of integer; массив в 10 элементов
i,j,k,min:integer; И переменные для работы и циклов
 
begin
 clrscr; Очищаем консоль
 write('Массив -> '); Массив ->
 for i:=1 to n do read(m[i]); В цикле вводим элементы массива
 readln; Это выкинь...
 k:=0; Инициализируем переменную нулем для старта
 for i:=1 to n do if m[i]<0 then inc(k); В цикле считаем кол-во отрицательных
 write('Всего отрицательных элементов - ',k); И сообщаем
 min:=1; Инициализируем переменку единицей
 for i:=1 to n do if abs(m[i])<abs(m[min]) then min:=i; В цикле ищем минимум по модулю
 k:=0; Еще раз ноль в "к"
 for i:=min+1 to n do k:=k+abs(m[i]); И собираем сумму по модулю до следующего за минимумом
 writeln('Сумма модулей элементов после MIN = ',k); Сообщаем
 for i:=1 to n do if m[i]<0 then m[i]:=sqr(m[i]); Каждый элемент возводим во вторую степень
 for i:=1 to n do Сортируем пузырьком массив
 for j:=1 to n-1 do
 if m[j]>m[j+1] then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив'); Сообщаем
 for i:=1 to n do write(m[i],' '); Выводим отсортированное
 readln; Любуемся консолью до нажатия Энтера
end. Hasta la vista, babe