Составить по информатике в паскале

var s1,s2,s3,s4: string;

begin

s1:='параллелограмм';

s2:=copy(s1,10,5);

s3:=s2;

delete (s3,2,1);

s3:=s3+copy(s1,2,1);

s4:=s1;

delete (s4,5,5);

delete (s4,8,2);

insert ('ф',s4,8);

write (s2,'   ',s3,'   ',s4)

end.