Помогите пожалуйста срочно написать программу в Delphi

[Ainur]

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

[__STDC__]

procedure swap(var a,b:char);
var
	tmp:char;
begin
	tmp := a;
	a     := b;
	b     := tmp;
end;

var
	s:string;
	i,n:byte;
begin
	readln(s);
	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;
	writeln(s);
end.

Переделайте сами под делфи..

[Ainur]

Спасибо большое.