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

[Игорь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.