Использование переменных строчного типа

[Sistemshik]

Помогите пожалуйста решить эту задачу Please
Определить все номера символов "а", которые содержит строку

[flash1989]

Пишите, сделаю
icq： 588002847
email: flash_1989@ukr.net

[Sheka]

Не вопрос! В лучшем виде. 255507394

[Nitrino]

Пиши решу быстро и дёшево
ICQ: 410691984

[dr.Jekill]

[syntax='pascal']
var s:string;
i:byte;
begin
write('-> ');
readln(s);
for i:=1 to Length(s) do
if s='a' then writeln(i);
readln;
end.
[/syntax]