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

[Shurik_123]

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

[Shurik_123]

крочь я понял задание
выберается буква и надо вывести символ стояший за ней после ее последнего ввода
например выбрали буву z а строка выглядит вот так
adszcdewzpoytz823
то я должен вывести 8.
я вот что написал:

Program pr8;
Uses
  Crt;
Var
k,c,c1 : char;
  l : boolean;
Begin
writeln(' vvedite zadanyiy bykvy');
readln(k);
  Writeln('Symbola');
  Writeln('===========');
  While true do
    begin
      C:=readkey;
      write©;
      if c<>#0 then
        begin
          if (k=c) then
           begin
           textcolor(lightblue);
           c1:=c;
           L:=True
           end
          else
            begin
              textcolor(white);
              L:=False
            end;
        end
      else
        begin
          c:=readkey;
          if c=#82then
            begin
             textcolor(yellow);
              writeln(с1);
             break;
            textcolor(yellow);
              writeln(с1);
               end
        end;
    end;
  Readln;
End.

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

Сообщение отредактировано: Shurik_123 - 25.12.2009 16:15