Множества, теоретический вопрос, (найти ошибку) Опции

[rekrut]

помогите сказать что не так в 3 строке, выдает ошибку "2 Identifier Expected". В програму вводится масив и она формирует множество из елементов масива. Думаю для профи тут все понятно, только неясно почему ошибка..

Program mnogina1;
const n=10;
type mn1=(5,10,15,20,25); {выдает тут ошибку}
Var i,k:integer;
    ar:array[1..n] of integer;
    mnog:set of mn1;
Begin
     k:=25;
     mnog:=[];
     for i:=1 to n do
         readln(ar[i]);
     for i:=1 to n do
         if ar[i] in mnog then mnog:=mnog+[ar[i]];
     for i:=5 to k do
         begin
              if i in mnog then write(i,' ');
              i:=i+5;
         end;
End.

М

для текстов программ есть специальные теги: [cоde=pas] и [/соde] мисс_граффити

[rekrut]

Задание по сути такое: ввести целочисельный массив 20 елементов, и сформировать множество елементы которого: 5,10,15,20,25.

P.S получается наша училка <censored> что ли раз написала нам так