На гласную или согласную оканчивается слово

procedure TForm5.Button2Click(Sender: TObject);
const
  mas:array[1..6] of Char = ('a','e','i','o','u','y');
var
  st:string;
  i,num,cod:Integer;
  flag:Boolean;
begin
flag:=True;
st:=string(Edit1.Text);
Val(st[Length(st)],num,cod);
if cod=o then
begin
 label2.caption:='на цифру';
end;
  for i:=1 to 6 do
  if (st[Length(st)]=mas[i] then
  begin
    flag:=False;
    Break;
  end;
 if flag then
 Label2.caption:='согласная'
 else
 Label2.Caption:='гласная';
  end;
end;

procedure TForm5.Button2Click(Sender: TObject);
const
mas:array[1..6] of Char = ('a','e','i','o','u','y');
var 
  st:string;
  i:Integer;
  flag:Boolean;
begin
  flag:=true;
  st:=Edit1.Text;
  for i:=1 to 6 do
  begin
    if (st[Length(st)]=mas[i] then 
    begin
      flag:=false;
      Break;
    end;
  end;
  if flag then  Label2.caption:='согласная'
  else  Label2.Caption:='гласная';
end;

procedure TForm5.Button2Click(Sender: TObject);
const
  mas:array[1..7] of Char = ('a','e','i','o','u','y','j');
var
  st:string;
  i:Integer;
  flag:Boolean;
begin
  flag:=True;
  st:=Edit1.Text;
  for i:=1 to 7 do
     begin
     if (st[Length(st)]=mas[i]) then
      begin
       flag:=False;
       Break;
      end;
      end;
 if flag then
 Label2.caption:='согласная'
 else
 Label2.caption:='гласная';
 
  end;

unit MainUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
const
  S1: AnsiString = 'уеэоаыяию'; // гласные
  S2: AnsiString = 'йцкнгшщзхждлрпвфчсмтб'; // согласные
 
type
  TLetterSet = Set of AnsiChar;
 
  TMainForm = class(TForm)
    txtWord: TEdit;
    Label1: TLabel;
    lblResult: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure txtWordChange(Sender: TObject);
  private
 
  public
    ls1, ls2: TLetterSet;
 
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  // заполнение множеств нужными буквами из массивов
  ls1 := [];
  ls2 := [];
  for i := 1 to Length(s1) do
    ls1 := ls1 + [s1[i]];
  for i := 1 to Length(s2) do
    ls2 := ls2 + [s2[i]];
end;
 
procedure TMainForm.txtWordChange(Sender: TObject);
var
  s: AnsiString;
begin
  s := AnsiLowerCase(txtWord.Text);
  // проверяем вхождение символа во множества:
  If s[Length(s)] in ls1 then
    lblResult.Caption := 'Последняя буква: ГЛАСНАЯ'
  else if s[Length(s)] in ls2 then
    lblResult.Caption := 'Последняя буква: СОГЛАСНАЯ'
  else
    lblResult.Caption := 'Последняя буква: ДРУГОЙ СИМВОЛ';
end;
 
end.

Application.MainFormOnTaskBar := True;