Прошу помочь в решении задачи.

program sem3_3_v2;
        uses crt;
        var
           r,r1,r2,x,y,eps,d,n,k:real;
           m:integer;
begin
     clrscr;
     writeln('Ââåäèòå íà÷àëî, êîíåö, çíà÷åíèå, øàã, íó è òî÷íîñòü:');
     readln(n,k,d,eps);
     writeln('|-----------------------------|');
     writeln('|    x    |    y    |    n    |');
     writeln('|-----------------------------|');
     x:=n;
     while x>=k do
     begin
     r1:=-x;
     r2:=1;
     r:=r1/r2;
     m:=0;
     while r1/r2>eps do
     begin
          r:=r1/r2;
          r1:=-x;
          r2:=r1/r2;
          m:=m+1
     end;
     y:=1;
     x:=x+d;
     writeln('|',x:7:2,'  |',y:7:2,'  |',m:5,'    |');
     end;
     writeln('|-----------------------------|');
end.

Program Massiv1;
 {Задание:
  В одномерном массиве, состоящем из п вещественных элементов, вычислить:
  1) сумму положительных элементов массива;
  2) произведение элементов массива, расположенных между максимальным
  по модулю и минимальным по модулю элементами.
  Упорядочить элементы массива по убыванию.}
Const
 N=15; {число элемнтов в массиве}
Var
 Mas: array [1..N] of Real;
 i, j, Nach, Kon: Integer; {переменная цикла}
 Sum, Proizv, Max, Min: Real;
Begin
 {Обнуление переменных}
 For i:=1 to N do
  Mas:=0;
 Sum:=0;
 Max:=0;
 Min:=0;
 Proizv:=1;
 {Запрашиваем данные}
 WriteLn;
 WriteLn('Введите элементы массива');
 For i:=1 to N do
  Begin
   Write('x[',i,']= ');
   ReadLn(Mas);
  End;
 {Определяем сумму положительных элементов массива}
 For i:=1 to N do
  If Mas>0 then
                  Sum:=Sum+Mas;
 {Выводим на экран сумму положительных элементов массива}
 WriteLn('Сумма положительных элементов массива составляет: ',Sum);
 {Поиск максимального и минимального элементов массива}
 Max:=Abs(Mas[1]);
 Min:=Abs(Mas[1]);
 Nach:=1;
 Kon:=1;
 For i:=1 to N do
  Begin
   If Max<Abs(Mas) then
                    Begin
                     Max:=Abs(Mas);
                     Nach:=i;
                    End;
   If Min>Abs(Mas) then
                    Begin
                     Min:=Abs(Mas);
                     Kon:=i;
                    End;
  End;
 {Подсчитываем произведение элементов массива}
 If Abs(Nach-Kon)>1 then
  Begin
   If Nach<Kon then
     For i:=Nach+1 to Kon-1 do
      Proizv:=Proizv*Mas
   Else
     For i:=Kon+1 to Nach-1 do
      Proizv:=Proizv*Mas;
  End
 Else
    Proizv:=0;
 {Выводим результат произведения}
 WriteLn('Произведение: ',Proizv);
 {Упорядочение элементов массива по убыванию}
 For i:=1 to N do
  Begin
   Max:=Mas;
   For j:=i to N do
    If Max<Mas[j] then
                     Begin
                      Max:=Mas[j];
                      Mas[j]:=Mas;
                      Mas:=Max;
                     End;
  End;
 {Вывод результатов сортировки}
 WriteLn('Упорядоченный массив:');
 For i:=1 to N do
  Write(Mas:4:0,' ');
 {Задержка}
 ReadLn;
End.