визуальное программирование.

[shalgan]

Добрый день. нужно написать программу в форме, попытался написать код

var s:string;
    i,j,k:byte;
   g,sg,n:integer;
begin
  n:=Edit1.lines.count;
  setlength(s,n);
  g:=edit2.lines.count;
  setlength(s,g);
  sg:=edit3.lines.count;
  setlengrh(s,sg);

   For i:=1 to Length(s) do
     if s[i] in g then inc(j)
      else if s[i] in sg then inc(k);
      edit4.Text:=inttostr(j);
      edit5.text:=inttostr(k);
      if j>k then edit6.text:=inttostr('Ãëàñíûõ áîëüøå ')
     else if j<k then edit6.text:=intostr('Ñîãëàñíûõ áîëüøå ')
      else edit6.text:=intostr ('Ðàâíîå êîë-âî');

end;

end.

выдает ошибку,помогите исправить,пожалуйста.И каким образом еще можно определи гласная буква или согласная?и правильно ли составил форму?Безымянный.jpg

[Stilet]

выдает ошибку

Угадывать предлагаешь?

каким образом еще можно определи гласная буква или согласная?

var c:char;
...
c:=букве;
if c in ['я','а','о','е','ю','у'] then в переменной "с" гласная