Помогите решить две задичи Задача: Написать программу, которая а) все буквы 'а' в строке st заменяет на букву 'о' и выводит новую строку на экран б) удаляет все буквы 'а' из строки и выводит новую строку на экран

var st:string;          i:integer; begin writeln('Введите строку:'); readln(st); for i:=1 to length(st) do begin   if st[i]='a' then   st[i]:='o'; end; writeln(st); end. var st:string;           i:integer; begin writeln('Введите строку:'); readln(st); for i:=1 to length(st) do begin   if st[i]='a' then   delete(st,i,1); end; writeln(st); end.