Используя данные из этого файла, напечатать фамилии тех студентов, которые начинаются с гласной буквы

uses crt;
const glasn : set of char = ['A','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
procedure Convert(var s:string); //процедура конвертации из фака
{ANSI -> ASCII}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
end;
 
var t : text;
    s : string;
begin 
  clrscr;
  write('Имя файла : '); readln(s);
  assign(t,s);
  {$i-}
  reset(t);//создайте текст файл с фамилиями в начале каждой строки c большой буквы, после пробел и другая иформ
  {$i+}
  if IOResult <> 0 then begin
    writeln('Файл не найден.');
    readln;
    exit;
  end;  
  while not eof(t) do begin
    readln(t,s); Convert(s);
    If s[1] in glasn then writeln(copy(s,1,pos(' ',s)));
  end;
  readln;
end.