Даю 99 баллов! Нужно ввести 2 строки, затем соединить их так, чтобы между ними стояла точка с запятой, и чтобы "а" заменялось "А". Ужасно умоляю, хоть какие-нибудь находки!

var s1,s2,s:string; i:integer; begin writeln('Введите две строки:'); readln(s1); readln(s2); s:=''; for i:=1 to length(s1) do  if s1[i]<>'а' then s:=s+s1[i] else s:=s+'A'; s:=s+';'; for i:=1 to length(s2) do  if s2[i]<>'а' then s:=s+s2[i] else s:=s+'A'; writeln(s); end. Пример: Введите две строки: Ужасно умоляю хоть какие-нибудь находки! УжAсно умоляю;хоть кAкие-нибудь нAходки!