Перевернуть строку заданную интервалом

[Gongled]

Доброго времени суток. Нашёл интересную для меня задачку, захотелось решить.

Задание:

Ввести числа №1 и №2. Из текста выбрать кусок, заключенный между позициями №1 и №2, вывести его на экран. А в тексте перевернуть его заголовок наперед.

Пример входного файла:

privet
zamok
bongo

Если №1 = 5, а №2 = 13, то результат должен быть следующим:

privob
komaz
tengo

Были следующие мысли:

program pr;
uses CRT;
const
e = 100;
type
SMass = array[1..e] of string;
LMass = array[1..e] of integer;
var
{ Массив для строк }
s : SMass;
{ Массив для длин строк }
c : LMass;
i, n_str, n1, n2, p1, p2, sum_lstr, sum_c : integer;
input : text;
str : string;

function check_interval(num_1, num_2, length_str : integer) : boolean;
var
key : boolean;
begin
     { Начальное присвоение }
     key := true;
     { Если интервал не соответствует условию, то ложь }
     if (num_1 > num_2) or (num_1 > length_str) or (num_2 > length_str) or (num_1 <= 0) or (num_2 <= 0) then
     begin
          key := false;
     end;
     { Возвращаем результат }
     result := key;
end;

begin
clrscr;

assign(input,'C:\input.txt');
reset(input);

i:=0;

while not eof(input) do
begin
     { Количество строк }
     inc(i);
     readln(input,str);
     { Записываем строку i }
     s[i] := str;
     { Записываем длину строки i }
     c[i] := length(str);
     { Находим сумму, для проверки интервалов }
     sum_lstr := sum_lstr + c[i];
end;

close(input);

{ Число строк }
n_str := i;

writeln('Информация для пользователя');
writeln('Количество строк: ',n_str);
writeln('Количество символов: ',sum_lstr);

{ Вводим интервал }
repeat
write('Введите интервал (через пробел): ');
read(n1,n2);
until check_interval(n1,n2,sum_lstr);

sum_c := 0;

{ Определяем строку, в которой находится первый символ }
for i:=1 to n_str do
begin
     sum_c := sum_c + c[i];
     if sum_c >= n1 then
     begin
          p1 := i;
          n1 := c[i] - sum_c + n1;
          break;
     end;
end;

sum_c := 0;

{ Определяем строку, в которой находится второй символ }
for i:=1 to n_str do
begin
     sum_c := sum_c + c[i];
     if sum_c >= n2 then
     begin
          p2 := i;
          n2 := c[i] - sum_c + n2;
          break;
     end;
end;

writeln('Позиция первого числа в ',p1,' строке под номером: ',n1);
writeln('Позиция второго числа в ',p2,' строке под номером: ',n2);

end.

Кто может хотя бы на словах описать алгоритм дальнейших действий?

Спасибо.