В операторе присваивания summa := sqr(x)+3*a переменными являются
x, a
a, x, summa
sqr,x,a
summa, sqr, x, a