Работа со строками

[irsen22]

Вывести на экран символ, предшествующий первому вхождению буквы «а» или сообщить о том, что буквы «а» нет в предложении.

[Serge_Bliznykov]

про запрет использования стандартных функций не слова не сказано, поэтому:

var k : integer;
 s : string;
begin
  Write('Введите строку:');
  Readln(s);
  k := Pos('a', s);
  case k of 
    0: WriteLn('буквы "a" нет в предложении');
    1: WriteLn('буква "a" первая (нет предществующих символов)');
    2: WriteLn('символ перед "a": '+Copy(s,k-1,1) );
  end;
  Readln
end.

[Mad_Cat]

2: WriteLn('символ перед "a": '+Copy(s,k-1,1) );

а почему 2 то?
а если "а" - третья???
имхо там else нужно

[irsen22]

Сообщение от Mad_Cat

2: WriteLn('символ перед "a": '+Copy(s,k-1,1) );

а почему 2 то?
а если "а" - третья???
имхо там else нужно

ну как бы да нужно else

[Serge_Bliznykov]

там else нужно

извините, конечно же, Вы правы, это я опечатался!

[Poma][a]

Copy(s,k-1,1)

А Вам не кажется, что гораздо проще будет выводить s[k-1]?