Массиввы

[VENOMIK]

помогите написать программу)Даны 3 массива символов. Определить какие символы входят в состав все трёх массивов)С помощью функций или процедер на паскале)

[danekne]

for i:=1 to k do
for j:=1 to l do
if a[i]=b[j] then
for e:=1 to z do
if a[i]=c[e] then
writeln(a[i])

Как то так. abc - массивы, lze - их размеры

[VENOMIK]

тут надо с помощью процедуры сделать)в процедуре сравниваешь 2 массива на наличие одинаковых и получается новый массив из этих элементов а потом сравниваешь с третьим при вызове процедуры как то так должно быть)как только реализовать в программе не знаю