Задача в паскале

[bboyedance]

Задача в паскале

Пользователь должен ввести любую фразу, из этой фразы надо убрать все буквы "а" а потом заменить их на заданную пользавателем букву. помогите решить вообще не получается.

 

[Vladimir_S]

Пользователь должен ввести любую фразу, из этой фразы надо убрать все буквы "а" а потом заменить их на заданную пользавателем букву. помогите решить вообще не получается.

Пожалуйста. Только учтите, что программа предназначена для работы только с ЛАТИНИЦЕЙ, и литера "а" тоже должна быть, соответственно, латинской. С кириллицей, во избежание проблем с кодировками, предпочитаю не связываться.

VAR
 S:STRING;
 L:Char;
 i:INTEGER;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 For i:=1 to Length(S) do
  If S[i]<>'a' then Write(S[i]);
 WriteLn;
 WriteLn('Enter the letter to replace "a":');
 ReadLn(L);
 For i:=1 to Length(S) do
  If S[i]='a' then Write(L) else Write(S[i]);
 WriteLn;
 ReadLn;
END.