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

var
    s: string;

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

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