помогите плз сделать прогу в паскале

Тупое решение "в лоб", думаю тебе другое и не подойдет:

program p1;
var
s:string[12];
s1,s2,s3:string[4];
begin
readln(s);
s1:=copy(s,1,4); s2:=copy(s,5,4); s3:=copy(s,9,4);
writeln('var A: ',s2+s3+s1); writeln('var B: ',s3+s1+s2);
end.

Удачи!