Вложенные циклы

Задача: Логистическая компания.
Разработать программу для определения тарифной сетки стоимости доставки груза.
Пользователь вводит наибольшее расстояние в км., и шаг изменения расстояния. Стоимость
одного километра считать равной 18 руб.
При увеличении расстояния на каждые 5 км., стоимость одного километра
уменьшается на 1,3%.
У меня ошибка в том, что прога сначала высчитывает просто цену, а потом только со скидкой. А нужно- чтобы он 1,2,3,4 высчитывал без скидки, а уже с 5 км была скидка сразу
Можете помочь решить с моими же переменными

program lab5;
Var p:real;
l,j,i,s:integer;
begin
  write ('введите наибольшее расстояние в км:');
  readln(s);
  writeln('Введите шаг изменения растояния');
  readln(l);
 for  j:=l to s do
 
    writeln('Стоимость доставки груза за '+j+' km: ', (j*18));
 for i:=l to s do
   if (i mod 5) = 0
  then
   writeln('Стоимость доставки груза за '+i+' км с учетом скидки ', (i*18)-0.013);
p:=s*18;
  writeln ('стоимость за наибольшее расстояние ',p);
  p:=(s*18)-0.013;
  writeln ('стоимость за наибольшее расстояние c учетом скидки ',p);
end.

Зачем дублировать темы? Ваша тема здесь: Вложенные циклы