Паскаль. Данные множественного типа (SET)

[stas_kovel]

Помогите, пожалуйста!
Задан текст из маленьких латинских букв, за которым проставлена ​​точка. Напечатать в алфавитном порядке все буквы, встречающиеся в тексте не менее, чем три раза. Очень благодарен!

[weech]

var
a:array [97..122] of shortint;
i:integer;
s:string;
begin
readln(s);
   for i:=1 to length(s) do
       inc(a[ord(s(i))]);
   for i:=97 to 122 do
       if a[i]>3 then 
          writeln(chr(i));

[stas_kovel]

ord(s(i))-ошибка...
Пишет что ожидалось имя процедуры или функции

[weech]

...Скобки квадратные: s[i]

[ViktorR]

ord(s(i)) - тут ведь очевидная ошибка.
Строка рассматривается как массив.
Т.е. надо - ord(s[i]) {круглые скобки -> квадратные}

[stas_kovel]

программа почему то не работает...
после ввода символов не выводить то что нужно..

[weech]

Пардон, набирал сразу здесь, не проверяя, нужно учесть точку: в первом цикле исправьте: length(s)-1

[stas_kovel]

все равно ничего не выводит...

[weech]

[stas_kovel]

согласен! спасибо!
но мне нужно их вводить через пробел...