Нужно написать программу, что бы буквы заменялись ** ** "заглавные", а не те, что стоят...

Question

Нужно написать программу, что бы буквы заменялись на на "заглавные", а не те, что стоят перед ними в английском алфавите. PascalABC

Program eX_1;
var s: String;
n, i, b, j: longint;
c: char;
begin
writeln('Введи текст из сообщения выше:');
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['a'..'z'] then s[i]:=Upcase(s[i])
else if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32)
else if s[i] in ['0'..'9'] then delete(s,i,1);
write(s);
end.

Comments

Вы сами-то посмотрели, что написали?

---

"буквы заменялись на на "заглавные", а не те, что стоят перед ними " - это как понимать?

---

буквы заменялись НЕ на "заглавные", а не те, что стоят перед ними опечатка, думаю

---

Надо чтобы не мы думали, а автор вопроса написал ясно, что ему надо.

Answer 1

Program eX_1;
var s: String;n, i, b, j: longint;c: char;
begin
writeln('Введи текст из сообщения выше:');
readln(s);for i:=length(s) downto 1 do
if s[i] in ['b'..'z'] then s[i]:=chr(ord(s[i])-1)
else if s[i]='a'then s[i]:='z' ;
write(s);
end.