Задание 3 - 6

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  TxtFile : TextFile;  // Текстовый файла
  FName : String[255]; // Имя файла

  GlsCnt, SglCnt : Word;     // Кол-во гласных и согласных
  Gls, Sgl : set of Char;    // Множества гласных и согласных
  Str : String[255];

  i : Integer;

begin
  GlsCnt := 0;
  SglCnt := 0;

  // Создание множеств гласных и согласных
  Sgl := ['a' .. 'z'];
  Gls := ['a','e','i','o','u'];

  Sgl := Sgl-Gls;

  // Запрос имени файла
  Write('Vvedite imya faila:'); ReadLn(FName);

  // Открытие файла на чтение с проверкой
  AssignFile(TxtFile,FName);

  {$I-}Reset(TxtFile);{$I+}
  if IoResult <> 0 then
    begin
      WriteLn('Oshibka pri otkritii faila!');
      Exit;
    end;

  // Чтение строк, с разбором каждой из них
  while not EOLN(TxtFile) do
    begin
      ReadLn(TxtFile,Str);

      for i := 1 to Length(Str) do
        if Str[i] in Gls then
          Inc(GlsCnt)
        else if Str[i] in Sgl then
          Inc(SglCnt);
    end;

  // Закрытие файла
  CloseFile(TxtFile);

  // Вывод итога
  if GlsCnt > SglCnt then
    WriteLn('Glasnyh bolshe chem soglsnyh')
  else if GlsCnt < SglCnt then
    WriteLn('Soglasnyh bolshe chem glasnyh')
  else if GlsCnt = SglCnt then
    WriteLn('Odinakovoy kolichestvo glasnyh i soglsnyh');

  WriteLn('Glasnyh:   ',GlsCnt);
  WriteLn('Soglasnyh: ',SglCnt);

  ReadLn;
end.