Дан текстовой файл заполненный строчными русскими буквами - Turbo Pascal

var
  f, g : text;
  s, s1 : string;
  i : integer;
begin
  assign(f, 'in1.txt');
  assign(g, 'out1.txt');
  reset(f);
  rewrite(g);
  while not EOF(f) do
  begin
    s1 := '';
    readln(f, s);
    for i := 1 to length(s) do
      if s[i] in ['а','е','ё','и','о','у','ю','ы','я','э'] then
        s1 := s1 + s[i];
    writeln(g, s1)
  end;  
  close(f);  
  close(g);
  writeln('выполнено!');
  readln
end.