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

Вот программа:var s,s1:string; i:integer;beginwriteln('Введите строку:');readln(s);s1:='';for i:=1 to length(s) do if s[i]='а' then s1:=s1+s[i]+' ' else s1:=s1+s[i];writeln(s1);end.Здесь буква "а" - русская

Function InsSpace(S : String) : String;Begin  If Length(S)>0 then    If S[1]='а' then InsSpace:=S[1]+' '+InsSpace(Copy(S,2,Length(S)-1))    else InsSpace:=S[1]+InsSpace(Copy(S,2,Length(S)-1))  else InsSpace:='';end;Var St : String;Begin  Readln(St);  Writeln(InsSpace(St));end.