Ошибка Дан произвольный русский текст. Проверить каких букв в нем больше: гласных или согласных(Delphi)

[Sunshinee]

Помогите, исправьте пожалуйста
[dcc32 Error] Unit2.pas(53): E2008 Incompatible types for i:= 1 to length(F) do
[dcc32 Error] Unit2.pas(54): E2016 Array type required if F[i] in glasn then
[dcc32 Error] Unit2.pas(56): E2016 Array type required else if F[i] in soglas then

procedure TForm2.FormCreate(Sender: TObject);
const
glasn=['а','е','и','о','у','ы','э','ю','я'];
soglas=['б','в','г','д','ж','з','й','л','м','н','р','к','п','с','т','ф','х','ц','ч','ш','щ'];
var
F: TextFile;
Ch: char;
g,s,i: integer;
begin
AssignFile(F,'C:\Users\xi\Desktop\na.txt');
 {$I-}
Reset (F);
{$I+}
if IOResult = 0 then
begin
while not Eof(f) do
begin
  Read (F,Ch);
  Memo1.Text:=memo1.Text+Ch;
  end;
  CloseFile(F);
  end
  else
  ShowMessage('Нет такого файла');
begin
 Read (F,Ch);
 g:=0; s:=0;
 for i:= 1 to length(F) do
 if F[i] in glasn then
 inc(g)
 else if F[i] in soglas then
 inc(s);
 if g> s then
 ShowMessage('Гласных больше')
 else if g< s then
 ShowMessage('Согласных больше')
 else
 ShowMessage('Согласных и гласных букв поровну');
end;
end;
end.

[Stilet]

for i:= 1 to length(F) do

Так в паскале увы нельзя.
Пиши так:

 for i:= 1 to length(memo1.Text) do
 if memo1.Text[i] in glasn then
 inc(g)

Хотя лучше бы ты считал файл в string.

[min@y™]

Хотя лучше бы ты считал файл в string.

В TMemoryStream.

[Sunshinee]

Не получается(((

Как в string?

[min@y™]

А файл у тебя в какой кодировке, интересно?

[Stilet]

Не получается

Как пытаешься?

[Sunshinee]

Всё, разобралась спасибо