Описать множества Alf('a'..'я') и поместите в него гласные буквы

var i: byte;     Alf: array [1..10] of char; begin      Alf[1] := 'А';      Alf[2] := 'Е';      Alf[3] := 'Ё';      Alf[4] := 'И';      Alf[5] := 'О';      Alf[6] := 'У';      Alf[7] := 'Ы';       Alf[8] := 'Э';      Alf[9] := 'Ю';      Alf[10] := 'Я';      for i := 1 to 10 do          writeln('[', i, '] => ', Alf[i]); end. :)