Решить две задичи : написать программу, которая а) все буквы 'а' в строке 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.