S:= 'информатика";
f:='математика";

тематики

Объяснение:

copy(f,3,4) - копируем из строки f 4 символа начиная с 3 символа

f = математика

3 символ - т

4 символа начиная с 3 символа - тема

copy(s,8,4) - копируем из строки s 4 символа начиная с 8 символа

s = информатика

8 символ - т

4 символа начиная с 8 символа - тика

тема + тика = тематика