Pascal abc.Найти позицию буковкы в строке.

Если в строке нет это буковкы - выдать известье об этом, или ничего не делать?

выдать извещенье

Без проверки того, есть ли знак в строке:
 
Var
   S:string;
   C:char;
   i:integer;
Begin
Write('Введите строчку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
Write('Знак "',C,'" встречается на позициях:');
For i:= 1 to Length(S) do
    if S[i] = C then Write(' ',i)
End.


Пример работы программки:

Введите строчку: 12345789654621685798546323312125
Введите символ: 5
Знак "5" встречается на позициях: 5 10 17 21 32



С проверкой:

Var
   S:string;
   C:char;
   i:integer;
Begin
Write('Введите строчку: ');ReadLn(S);
Write('Введите знак: ');ReadLn(C);
i:=1;
While (S[i] lt;gt; C)and(ilt;Length(S)) do
   i:=i+1;
if S[i] = C then
   Begin
   Write('Символ "',C,'" встречается на позициях:');
   For i:= i to Length(S) do
       if S[i] = C then Write(' ',i)
   End
else
   WriteLn('Данный знак в строке не встречается')
End.


Пример работы программки:

Введите строчку: 12312123
Введите знак: 4
Данный символ в строке не встречается