Найти букву в тесте и вывести следующую за ней - Pascal ABC

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

Нужно написать программу которая бы искала заданную букву в строке и выводила 1 бувку после нее. А если такая буква не одна? Вот я пытался делать.

var buk,buk2,s,v:string;
var i,position:integer;
var f:boolean ;
begin
writeln ('Ваше предложение: ');
readln (s);
writeln ('Буква: ');
readln (buk);
for i:=1 to Length (s) do if  s [i] = buk then position:=i;
buk2:=s [position+1];
writeln ('Буква найдена. Следующая: ', buk2);
end.

Но она недоработанная жуть да и.... Короче помогите если не трудно

Решение задачи: «Найти букву в тесте и вывести следующую за ней»

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

var s:string;
    b:char;
    i:integer;
begin
Writeln('Введите строку');
readln(s);
Writeln('Введите букву');
readln(b);
for i:=1 to length(s)-1 do
if s[i] = b then write(s[i+1],' ');
end.

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

В данном коде происходит следующее:

Объявляются три переменные: s (строка), b (символ) и i (целое число).
Выводится сообщение Введите строку.
Считывается строка с помощью функции readln().
Выводится сообщение Введите букву.
Считывается буква с помощью функции readln().
Запускается цикл for, который проходит по каждому символу в строке, начиная с первого и до последнего, кроме последнего символа.
Внутри цикла сравнивается текущий символ со введенной буквой. Если символы совпадают, то выводится следующий символ.
После завершения цикла выводится последний символ строки.