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

[Shurik_123]

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

[Unconnected]

Ну, тогда чтоб переплюнуть все носители на Земле, наверное надо так:

uses crt;
var c,f:char;
    d:string[2];
begin
  writeln('Vvedite iskomiy simvol');
  f:=readkey;
  writeln('Teper popsimvolno vvodite stroku');
  repeat
    c:=readkey;
    if (c=f) then
    begin
      d:='';
      d:=d+c;
      c:=readkey;
      if (c=#0) then break;
      d:=d+c;
    end;
  until (c=#0);
  writeln(d[2]);
  readln;
end.