Нельзя считывать данные этого типа паскаль (почему так выводится) 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.
надо так s,b,d,a: string;
Объявление переменных в паскале делается так var s,b,d,a: string;