const n=50;
var x:array[1..n] of integer; k:integer;
Подсчитать k-число различных элементов в массиве x.

Здесь имеется в виду элементы, которые встретились только один раз?

Где-то так:

k:=n;
for i:=2 to n do
 for j:=1 to i-1 do
  if x[j]=x[i] then begin dec (k); break; end;