Помогите пожалуйста с программой!

[SfSpawN]

Работа со строками.Написать программу, которая заменяет каждый символ строки, введенной пользователем на символ с кодом, меньшим на единицу(т.е. предыдущий символ).Для первой буквы алфавита - поменять на последнюю букву. (Например "моя строка" => "лню рспнйя").

[__STDC__]

на чем писать? C, Pascal? Algol? Brainfuck?

[SfSpawN]

на Delphi надо

[__STDC__]

Сообщение от SfSpawN

на Delphi надо

ах черт, вот это да.. неудачненько.. вот если бы на Обероне...

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  i:integer;
begin
  str := edit1.Text;
  for i:=1 to length(str) do
    if (str[i] = 'а') then
      str[i] := 'я'
    else
      str[i] := chr(ord(str[i])-1);
  edit2.Text := str;
end;

[SfSpawN]

спасибо...огромное)

[Goodwin98]

ах черт, вот это да.. неудачненько.. вот если бы на Обероне...

А если все же на нем?

[__STDC__]

MODULE Test;

IMPORT Log;

PROCEDURE set;
VAR
	s : ARRAY 11 OF CHAR;
	i : INTEGER;
BEGIN
	s := "HelloWorld";
	FOR i:=0 TO LEN(s)-1 DO 
		IF (s[i] = 'a') THEN
			s[i] := 'z';
		ELSE
			s[i] := CHR(ORD(s[i])-1);
		END;
	Log.Char(s[i]);
	END;	
END set;

PROCEDURE Do*;
BEGIN
	set;
END Do;

END Test.

?

[Stilet]

А если все же на нем?

Подколоть хотите, сэр?

__STDC__

Дополню только что вместо модуля Log который используется внутри системы, луче применять StdLog.

[__STDC__]

Сообщение от Stilet

Подколоть хотите, сэр?

Дополню только что вместо модуля Log который используется внутри системы, луче применять StdLog.

ага, в первоначальном варианте именно он был.. не знаю зачем поменял... ночь была