Макрос VBA

[Donix]

Здравствуйте, помогите пожалуйста с написанием программы!
Задание: Дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
Эта программа на языке паскаль:

program p;

var f:text;

s:string;

i,j,k:integer;

m:set of char;

begin write('***************************************************');

assign(f,'e:\F11.txt');

reset(f);

m:=['а'..'я'];

writeln('Вот эти буквы:');

while not(eof(f)) do

begin readln(f,s);

for i:=1 to length(s) do

begin k:=0;

for j:=1 to length(s) do

if (s[i] in m)and(s[j] in m)and(s[i]=s[j])

then k:=k+1;

if k=1 then write(s[i],' ');

end;

end;

close(f);

end.

Буду очень благодарен, если программа будет с комментариями)

[EL_MoC]

Sub Поиск_Вывод()
Dim k As Integer, a
k = 0   'Обнуляем счетчик
a = ""  'Обнуляем значение
a = InputBox("Что ищем?", "Параметры поиска", "а")  'Вводим параметр поиска
With ActiveDocument.Content.Find
    .ClearFormatting
    .Text = a   'Поиск того, что ввели
    Do Until .Execute = False   'Зацикливаемся
        If .Found = True Then
            k = k + 1   'если находит символ, то плюсуем к счетчику 1
        End If
    Loop
End With
MsgBox "Количество букв" & a & "=" & k  'выводим найденное
End Sub

[Ципихович Эндрю]

а зачем обнулять, разве после явно объявления переменной они не равны 0 и ""
Зачем"Что ищем?", "Параметры поиска", "а")
Если сказано:
Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.

[Sasha_Smirnov]

Сообщение от EL_MoC

a = InputBox("Что ищем...

Ищём всё. Счётчиков нужно 256 (а то и 65536)!

Те символы, счётчик которых показал 1, добавляем в массив (в порядке их обнаружения в тексте).

Сообщение от Donix

Здравствуйте, помогите пожалуйста с написанием программы!
Задание: Дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.
Эта программа на языке паскаль:

writeln('Вот эти буквы:');

Вот передёргивать не надо. Это может быть, например, римская цифра, знак № и прочие «раритеты»!

[EL_MoC]

Да, да. Увлекся, ошибся. Тогда вариант-записываем в порядке поступления элементы в массив. При поступлении в массив элемент сравнивается уже имеющимися. Если есть такие же, элемент в массив не включается. Затем просто выводим этот массив. Он как-раз будет в требуемой последовательности. Что если так?