Помогите! Нужна программка, которая смогла бы заменить в строке из 10 символов все гласные на '@'.

Ну и в чем проблема ? Идешь в цикле от 1 до length(s) по строке s и смотришь if s[i] in ['q', 'e', 'y', 'u', ... ] then s[i] := '@';