Решить в turbo pascal. : поиск букв в слове. напишите программу для проверки, есть ли в данном слове буква «а». если есть, то найдите номер первой из них.

Beginvar a:string;var i:integer;read(a);for i:=1 to length(a) dobegin if a[i] = 'a' thenbeginwriteln('Найдена буква а, ее позиция: ' , i);break;end;end;
end.