Написать программу, удвоить введенную строку — Pascal(Паскаль)

uses crt;
var
   s:string;
begin
     clrscr;
     readln(s);
     s:=s+s;
     writeln(s);
     readln;
end.