Як же це краще пояснити. От наприклад Копіюю з поля RichEdit те що програма наразі вивела мені туди

З однієї частини міста до іншої маршрутне таксі, рухаючись зі швидкістю 90 км/год (без зупинок), доїжджає за 15 хв. За скільки хвилин цю саму відстань подолає велосипедист, рухаючись зі швидкістю 15 м/с?
------------
Знайти
t2 - Час 
 
 
 
------------
Дано
t1 - Час  15  хв. - Хвилин
v1 - Швидкість  90  км/год. - Кілометрів за годину
v2 - Швидкість  15  м/с. - Метрів за секунду
s2 - Переміщення  =  s1 - Переміщення
   
   
------------
CI
t1 = t1*60
t1 - Час  =  900  Секунд
v1 = v1*1000/3600
v1 - Швидкість  =  25  Метрів за секунду
v2 - Швидкість  =  15  Метрів за секунду
s2 := s1
------------
Розв'язання
ФIЗИКА — НАУКА ПРО ПРИРОДУ
Визначаємо переміщення.
s1 = v1*t1
Переміщення s1  =  22500  Метра (ів)

Час визначає тривалiсть iснування об’єктiв i послiдовнiсть змiн, якi в них вiдбуваються. Час позначають лiтерою t.
t2 = s2/v2
t2 - Час  =  1500  Секунд

Жирним шрифтом виділені визначення які я виводжу як константи.

const    FIZIKA1 =    'ФIЗИКА — НАУКА ПРО ПРИРОДУ';
const    CHAS =    'Час визначає тривалiсть iснування об’єктiв i послiдовнiсть змiн, якi в них вiдбуваються. Час позначають лiтерою t.';

Ось кусочок кода який виводить визначення часу

        begin
         Definition := EmptyLine;
         RichEdit1.Lines.Add(Definition);
         Definition := CHAS;
         RichEdit1.Lines.Add(Definition);
         RichEdit1.Lines.Add ('t1 = s1/v1');
         t1 := s1/v1;
        end

От я і думав може змінній Definition можна присвоїти цілий файл де записані визначення, а тоді виводити певний рядок цього файлу в якому прописане потрібне визначення. Рядки ж в текстовому файлі нумеруються від нуля. Щоб не добавляти константу CHAS в поле RichEdit прописувати одну змінну Definition з номером рядка який  мені потрібно для часу. Буде потрібно для швидкості знову прописати змінну Definition в коді з номером визначення швидкості і так далі.