Найти количество гласных в текстовых файлах - Pascal ABC

Формулировка задачи:

надо Найти количество гласных в текстовых файлах и вывести результат на черный экран. Использовать процедуру. написал вот такую, но вылетает с ошибкой 103

program p54;
const glas=['a','e','u','i','o',A','E','U','I','O'];
var t:text;
n,i:integer;
s:char;
procedure glasnie(s:char);
begin
while not eof(t) do begin
if s in glas then inc(n);
writeln('kol-vo:', n);
end;
end;
begin
assign(t,'t.in');
reset(t);
read(t,s);
close(t);
glasnie(s);
readln;
end.

Решение задачи: «Найти количество гласных в текстовых файлах»

textual
                            Листинг программы 
                        

                            program p54;
 
const
  glas = ['a', 'e', 'u', 'i', 'o', 'A', 'E', 'U', 'I', 'O'];
 
var
  t: text;
 
procedure glasnie(var f: text);
var
  n: integer;
  s: char;
 
begin
  n := 0;
  reset(f);
  while not eof(f) do 
  begin
    read(f, s);
    if s in glas then 
      inc(n);
  end;
  close(f);
  writeln('kol-vo:', n);
end;
 
begin
  assign(t, 't.in');
  glasnie(t);
end.
                        