Найти сумму членов бесконечно убывающей арифметической прогрессии - Turbo Pascal

Формулировка задачи:

Найти сумму членов бесконечно убывающей арифметической прогрессии, если известны ее первый член a1 и знаменатель q. Сделал вот, так (преподаватель сказал переделать):

program 2.1;
uses crt;
var
a1,q,s:double;
begin
write('a1 = ');
readln(a1);
write('q = ');
readln(q);
if(abs(q)>=1) then writeln('Последовательность не убывающая!')
else
  begin
  s:=a1/(1-q);
  writeln('S = ',s:0:4);
  end;
readkey;
end.

Помогите переделать. Заранее спасибо.

Решение задачи: «Найти сумму членов бесконечно убывающей арифметической прогрессии»

Листинг программы

uses crt;
var
a1,q,s:double;
begin
write('a1 = ');
readln(a1);
write('q = ');
readln(q);
if (abs(q)<1) then
  begin
  s:=a1/(1-q);
  writeln('S = ',s:0:4);
  end
else writeln('Последовательность не убывающая');
readkey;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для ввода и вывода данных.
Затем объявляются три переменные типа double: a1, q и s. Значение переменной a1 будет считываться из ввода, а значения переменных q и s будут вычисляться внутри цикла.
С помощью функции readln считывается значение переменной a1 и оно выводится на экран с помощью функции write.
Затем считывается значение переменной q. Если значение q отрицательное или равно 1, то выполняется блок if.
Внутри блока if вычисляется значение переменной s как частное от деления a1 на разность 1 и q. Значение переменной s также выводится на экран с помощью функции write.
Если значение q не удовлетворяет условию из блока if, то выводится сообщение о том, что последовательность не убывающая.
Конец программы.