Задача в Dephi

[Ainur]

Работа со строками.Написать программу,которая заменяет каждый символ строки,введенной пользователем следующим образом. Символы меняются по парно (например, 1-й со 2-ым, 3-й со 4-ым и т.д.). Если в строке нечетное число символов, то последний символ не менять

[fbus]

стучи в аську,сделаю.

[Stilet]

Показывай наработки иначе за нарушения забаню.

[Ainur]

procedure TForm1.Edit1Change(Sender: TObject);

var
	s:string;
	i,n:byte;
begin

	if (length(s) mod 2 <> 0) then
		n:= length(s)-1
	else
		n:= length(s);
    i:= 1;

	while (i < n) do
  begin
		swap(s[i],s[i+1]);
		inc(i,2);
	end;

end;

end.

[Stilet]

Ainur

Ну логично. Криминала не вижу.