Работа с одномерными массивами (Turbo pascal)

[alheim13]

Люди помогите пожалуйста. Нужно написать программу. Желательно с коментариями и чтоб программа не выглядела написанной профессионалом,но работала.

Задание:
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) номер минимального по модулю элемента массива;
2) сумму модулей элементов массива, расположенных после первого отрицательного элемента.
3) Сжать массив, удалив из него все элементы, величина которых находится в интервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями.

[Stilet]

чтоб программа не выглядела написанной профессионалом,но работала.

const n=2;
 massiv:array[1..n] of integer=(1,2);
var k,i:integer;
begin
 for i:=1 to n do k:=k+massiv[i]; k:=1;
 writeln('номер минимального по модулю элемента массива;',k);
 for i:=1 to n do k:=k+abs(massiv[i]); k:=0;
 writeln('сумму модулей элементов массива, расположенных после первого отрицательного элемента.',k);
 for i:=1 to n do k:=massiv[i]*0; 
 writeln('Сжать массив, удалив из него все элементы, величина которых находится в интервале [а, b].'
   ,' Освободившиеся в конце массива элементы заполнить нулями. ',1,2);
end.

[newerow1989]

const n=12;
      a=-2;
      b=4;
var p:array[1..n] of real;
    i,j:byte;
    s:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20)+Random;//создаем случайное число...
      Write(p[i]:5:5,'  ');//...и его распечатываем на экран
   end;
   Writeln;
   j:=1;//пусть номер минимального по модулю элемента массива станет 1
   For i:=2 to n do
      If Abs(p[j])>Abs(p[i]) then//если обнаружили минимальный по модулю элемент массива, то...
         j:=i;//...запоминаем номер минимального по модулю элемента массива...
   Writeln(j);//...и его распечатываем на экран
   j:=1;//пусть номер первого отрицательного числа станет 1
   While (j<=n) and (p[j]>0) do//увеличиваем счетчик на 1 до тех пор, пока не встретится отрицательный элемент
      j:=j+1;//
   //Writeln(imin);//распечатываем номер отрицательного элемента (если надо)
   s:=0;//обнуляем сумму модулей элементов массива
   For i:=j+1 to n do
      s:=s+Abs(p[i]);//считаем общую сумму модулей элементов массива...
   Writeln(s:5:5);//...и его распечатываем
   For i:=1 to n do
      If (p[i]>=a) and (p[i]<=b) then//если встретится число в диапазоне [а, b], то...
      begin
         For j:=i to n-1 do
            p[j]:=p[j+1];//...сдвигаем все элементы с конца до позиции i, ...
         p[n]:=0;//...а последний элемент обнуляем
      end;
   For i:=1 to n do
      Write(p[i]:5:5,'  ');//печать полученного массива на экран
   Writeln;
   Readln;
end.

Сойдет?