Переставить в исходном четырёхзначном числе первые две цифры и последние две цифры местами.Например: Входное 1234, выходное 3412. (что тут делать)?

uses crt;var n,k,a,b:string;beginwrite('Введите четырёхзначное число: ');readln(a);n:=copy(a,1,2);k:=copy(a,3,2);b:=k+n;writeln(b);end.

var    s: string;begin    read(s);    if length(s) >= 4 then          writeln(s[3] + s[4] + s[1] + s[2]);end.