Расстояние между подстроками

Задача

В заданной строке найти расстояние в символах между двумя подстроками.

Решение

Функция pos возвращает индекс первого символа подстроки в строке.

Чтобы вычислить расстояние между подстроками, надо из индекса первого символа второй подстроки вычесть индекс последнего символа первой подстроки. Чтобы найти индекс последнего символа первой подстроки, надо к индексу ее первого символа добавить длину этой подстроки.

var
    s, word1, word2: string;
    w1_len: byte;
    w1_pos, w2_pos: byte;
    i: byte;
 
begin
    readln(s);
    readln(word1);
    readln(word2);
 
    w1_len := length(word1);
 
    w1_pos := pos(word1, s);
    w2_pos := pos(word2, s);
 
    i := w2_pos - (w1_pos + w1_len);
    writeln(i);
end.

Пример выполнения:

one two three four
two
four
7