Вывести на экран наименьшее расстояние между двумя точками - Turbo Pascal

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

Сама задача: Дано множество точек с координатами на плоскости. Написать программу, которая использует подпрограммы и выведит на экран наименьшее расстояние между двумя точками. Заранее спасибо.

UP!

Решение задачи: «Вывести на экран наименьшее расстояние между двумя точками»

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

if R<min then min=R

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

В данном коде происходит следующее:

min - это переменная, которая инициализируется значением R, где R - это неизвестное значение, которое будет вычисляться далее в коде.
R - это неизвестное значение, которое будет вычисляться далее в коде.
Вычисляется значение R.
Если R меньше текущего значения min, то min обновляется, принимая значение R.
Код не содержит вложенных списков.