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

Ужасно умоляю, хоть какие-нибудь находки!

Да хранит тебя Господь! Спасибо! Просто клятвенно благодарю!

Пожалуйста. Клятвенно благодарят, пожалуй, первый раз. )

var s1,s2,s:string;i:integer;beginwriteln('Введите две строки:');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ходки!