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

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.