Л-23 задача-2

Program p23_2;
  var f:text;
  i,k:integer;
  gl: set of char;
  s:string;
begin
gl:= ['а','о','э','ю','у','е','ё','и','я','ы','А','О','Ю','У','Е','Ё','И','Я','Э']; //символьное множество с гласными буквами
writeln('Введите текст: ');
assign (f,'C:\Users\Андрей\Desktop\Text.txt'); //присваиваем файловой переменной (f) -- имя внешнего файлы
rewrite(f); //Создает и открывает новый файл
readln(s); //Выполняется процедура Read, затем выполняется переход на следующую строку файла.
write(f,s);//выводит содержимое файла
close(f);//Закрывает ранее открытый файл
reset(f);//Открывает существующий файл
k:=0;
while not (eoln(f)) do //цикл ПОКА НЕ ЗАКОНЧИТЬСЯ СТРОКА (Eoln)
begin
readln (f,s); //Выполняется процедура Read, затем выполняется переход на следующую строку файла.
for i:= 1 to length(s) do //цикл до количества символов
  if (s[i] in gl) then k:=k+1; //если символ строки (s) под номером (i) есть в массиве глассных (gl), то увеличиваем переменную (k) на 1
end;
close(f);//Закрывает ранее открытый файл
writeln ('Количество гласных = ',k);//ответ
end.