Question

Дана строка содержащая любые символы кроме русских букв.
Написать процедуру, которая заменит все малые латинские буквы на следующие по алфавиту.
Например из строки: a bc 83xz получим b cd 83ya.
procedure Zamena(var Stroka:string);
Можно пожалуйста решить обычным языком(8класс) length,copy,deleted,insert,pos...

Answer 1

procedure Zamena(var stroka: string);

var

 i: integer;

begin

 for i := 1 to length(stroka) do

 begin

   if stroka[i] in ['a'..'y'] then inc(stroka[i])  

   else  

   if stroka[i] = 'z' then stroka[i] := 'a'

 end;

end;

var

 s: string;

begin

 readln(s);

 zamena(s);

 Writeln(s);

end.

Не уверен в корректной компиляции на fpc, к примеру, напишите если будут проблемы.