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

[Shurik_123]

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

[Shurik_123]

andriano, просто вы видели какие задание дал препод другим там чтоб написать минут 3 понадобится , а мне ерунду эту(
задание вот к примеру
1. Вводить символы с клавиатуры. Присвоить логической переменной L значение ‘true’, если выполняются указанные условия, и значение ‘false’ иначе:
• значением L является символ '*';
• значением L является символ 'а';
• значением L является цифра..
вот решение:

program LAB8moe;
uses crt;
var c: char;
L:boolean;
begin
clrscr;
textcolor(3);
writeln('simvol  |  L');
writeln('==============');
repeat
c:=readkey;
if (c='*') or (c='a') or ( (ord©>=48) and  (ord©<=57) )  then
begin
L:=true;
writeln (c,'    |   ',L)
end
    else begin
           L:=false;
           writeln (c,'    |    ',L)
           end;
until c=#79;
writeln('==============');
readkey
end.

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

М

Тэги!