Массив: отрисовка массива линий по координатам - Turbo Pascal

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

Создать программу выполняющую действия: 1)вводить и сохранять в массиве данных введенные пользователем координаты линий {знаю что у линий нет координат} 2)вырисовывать их в граф. поле, автоматически подбирая масштаб 3) выводить список линий, сортируя по возрастанию длины. Несилен я в программировании,набросал меню от проги, начал делать процедуру для ввода данных, и не знаю как сделать массив у которого изначально не известно кол-во элементов

Решение задачи: «Массив: отрисовка массива линий по координатам»

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

const mn=5000;
type
  TPoint = record
    x, y: Integer;
  end;
  TLine = record
    a, b: TPoint;
  end;
var
  Lines: array [1..mn] of TLine;
  LineCount: Integer;

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

В данном коде объявлены три переменные: mn (константа), TPoint (тип данных) и TLine (тип данных). Также объявлен массив Lines, который содержит mn элементов типа TLine. Переменная LineCount инициализируется значением mn. Далее идет код, который рисует линии по координатам. Каждая линия представлена парой точек (a и b), которые являются полями типа TPoint. Точки определяются с помощью переменных x и y соответственно. В данном случае предполагается, что каждая точка имеет координаты от 0 до 4999 (так как mn равно 5000).