символьные величины, нужна помощь Опции

[Игорь2]

Прошу помочь в решении задачи на символьные величины
" Убрать в слове агроном букву "о" "
Вот примерное моё решение

program f353;
var st:string;
i:integer;
begin
st:='агроном';
i:=length(st);
while i>0 do
begin
delete(st,1,1);
i:=i+1;
end;
writeln(st);
end.

[volvo]

Вот примерное моё решение

Это неправильное решение: практически вечный цикл (хотя на самом деле цикл закончится, от переполнения целого числа)...

repeat
  p := pos('о', st);
  if p > 0 then delete(st, p, 1);
until p = 0;

будет гораздо эффективнее...

Теги используй, кстати...

[Игорь2]

Скажите, что означает функция pos
Заранее спасибо

[Игорь2]

Большое спасибо, разобрался в задаче

[Domitila.chase]

Привет там, просто стало внимательны к вашим Форум через Google, и обнаружил, что это действительно информативным. Я буду следить за Брюсселе. Я буду признателен, если вы будете продолжать это в будущем. Много людей будет выгоду от вашей письменной форме. Cheers! наилучшие пожелания