Паскаль. Вводится восьмизначное число. Поменять в нем соседние цифры.

Помогите решить задачу.

var i, n:integer; s1, s2, s3:string;

a:array [1 ... 100] of integer;

begin

write ('Введите Число: ') ;

readln (n) ;

str (n, s1) ;

if length (s1) = 8 then begin

for i:=1 to 7 do begin

s2:=copy (s1, i, 1) ;

s3:=copy (s1, i+1,1) ;

delete (s1, i+1,1) ;

delete (s1, i, 1) ;

insert (s3, s1, i) ;

insert (s2, s1, i+1) ;

i:=i+1;

end;

end;

writeln (s1) ;

end.