Нельзя считывать данные этого типа паскаль (почему так выводится)
program crt;
var i: integer;
string:(s,b,d,a);
begin
writeln('магистратура');
readln(a);
s:=copy(a,4,7);
writeln(s);
d:=copy(a,4,8);
writeln(d);
b:=copy(a,4,8);
write(b);
end.