задача 1 Cоставить программу,которая позволяет ввести строку s,затем после каждой буквы "а" вставить пробел. задача 2 Составить программу,которая удаляет в строке S все буквы "о"

На всякий случай сделал проверку и на русские, и на английские.
задача 1.
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
repeat
if (s[i]=a) or (s[i]=а) then
s:=copy(s,1,i)+ +copy(s,i+1,length(s));
i:=i+1;
until i=length(s)+1;
writeln(s);
end.
задача 2.
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
repeat
if (s[i]=о) or (s[i]=o) then
s:=copy(s,1,i-1)+ +copy(s,i+1,length(s));
i:=i+1;
until i=length(s)+1;
writeln(s);
end.