символьный тип даных Опции

[Shurik_123]

Известно, что во вводимом тексте встречается заданная буква, причем не на последнем месте. Требуется вывести символ этого текста, который непосредственно следует за последним вхождением этой буквы. Ввод продолжать до нажатия ‘Ins’ на дополнительной клавиатуре.
помогите плиз

[Unconnected]

Сделал вывод символов для кода andriano, всё работает. Больше ничего не добавлял.

uses crt;
var c1,c2,f:char;
begin
  writeln('Vvedite iskomiy simvol');
  f:=readkey;writeln(f);
  writeln('Teper popsimvolno vvodite stroku');
  repeat
    c1:=readkey;
    write(c1);
    if (c1=f) then
      begin
        c2:=readkey;
        write(c2);
      end;
  until (c1=#0);
  writeln;
  writeln(c2);
  readln;
end.