Программа

PROGRAM Look;
VAR S:String; { Строка }
FUNCTION Poisk(k:byte;S:string):boolean;
  Begin
    if k>0
      then if S[k]='A'
             then Poisk:=TRUE
             else Poisk:=Poisk(k-1,S)
      else Poisk:=FALSE
    { Если номер просматриваемого символа k>0,
        то если просматриваемый символ ="A",
             то опредление значения функции "ИСТИНА"
             иначе опредление значения функции по значению функции
                   для (k-1) элемента
        иначе опрделение значения функции "FALSE" }
  End;
BEGIN
  Write('Введите строку ');   { Вывод приглашения ввести строку }
  ReadLn(S);                  { Ввод строки }
  { Поиск символа и вывод соответствующего сообщения: }
  if Poisk(Length(S),S)
    then WriteLn('Введенная строка содержит символ "A"')
    else WriteLn('Введенная строка НЕ содержит символ "A"')
END.