Напишите программу, которая переводит правильную дробь в десятичную, выделив (если нужно), период дроби - Pascal ABC

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

Напишите программу, которая переводит правильную дробь в десятичную, выделив (если нужно), период дроби. Входные данные Входная строка содержит два числа M и N , разделённых пробелами. Гарантируется, что M < N . Выходные данные Программа должна вывести десятичную запись дроби , выделив (если нужно) её период. В качестве разделителя целой и дробной части используйте запятую. Примеры входные данные 1 2 выходные данные 0,5 входные данные 3 14 выходные данные 0,2(142857)

Решение задачи: «Напишите программу, которая переводит правильную дробь в десятичную, выделив (если нужно), период дроби»

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

var n, m, dot: integer;
    s: string;
begin
  read(n, m);
  s := FloatToStr(n / m);
  dot := pos('.', s);
  if (length(copy(s, dot, length(s) - dot)) <> 1) then begin
    insert('(', s, dot + 2);
    insert(')', s, length(s) + 1);
  end;
  delete(s, dot, 1);
  insert(',', s, dot);
  writeln(s);
end.

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

Объявлены переменные: n, m, dot (целые числа), s (строка).
Ввод чисел n и m с помощью функции read.
Вычисление и вывод десятичного числа с помощью функции FloatToStr.
Поиск позиции десятичной точки в строке с помощью функции pos.
Если длина числа меньше 2 (не является правильной дробью), то вставка скобок в числе.
Удаление десятичной точки из числа.
Вставка запятой после десятичной точки.
Вывод полученного числа.