Задание на множества

program LR4;
const M = 3;
alph : array [1..66] of char = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р',
                                'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я', 
                                'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',
                                'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я');
type mn = set of 'А'.. 'я';
var s: string;
    ms, t:array[1..M] of string;
    mn1:mn;
    z:char;
    f:text;
    pr:boolean;
    i,j,k,l,n:integer;
 
procedure inp_mn (s:string; var mn1:mn; var n:integer);
var i: integer;
  begin
    for i:=1 to length(s) do
      if not (s[i] in mn1) then
        begin
          mn1+=[s[i]];
          if ord(s[i])>96 then mn1+=[chr(ord(s[i])-32)]
                          else mn1+=[chr(ord(s[i])+32)];
              n:=n+1;
              end;
  end;
 
 
begin
  assign(f, 'data.txt');
  reset(f);
  writeln('Текст');
  writeln;
  for i:=1 to M do
    begin
      readln(f, ms[i]);
      writeln(ms[i]);
      end;
inp_mn(s,mn1,n);
end.

var gl:set of char=['Ё','У','Е','Ы','А','О','Э','Я','И','Ю','Э'];
begin
  var s:=System.IO.File.ReadAllText('data.txt',Encoding.GetEncoding(1251));
  writeln('Содержимое файла:'+NewLine+s);
  write('Определить количество слов в тексте, которые начинаются и заканчиваются гласной буквой:');
  var z:=s.ToUpper.ToWords(',','.',' ','-',':',';','?',':').Where(t->(t[1] in gl) and (t[t.length] in gl));
  writeln(z.Count);
  writeln('Напечатать эти слова:');
  z.PrintLines;
  writeln('Напечатать использованные гласные буквы в алфавитном порядке:');
  var x:=string.Join('',z.Select(t->string.Join('',t.ToCharArray.Where(c->c in gl)))).OrderBy(t->t).Distinct;
  x.PrintLines;
end.