[Pascal] Plik i lista (zad)

Witam mam do napisania taki program w Pascalu:
Dany jest plik amorficzny. Napisz funkcję wczytującą samogłoski z tego pliku na listę jednokierunkową cykliczną. Czy mógłby ktoś sprawdzić poprawność tego kodu, zwłaszcza wczytywanie na listę.
Kod:

type plik=file;
lista=^elem;
elem=record
dane:char;
nast:lista;
end;
function wczytaj(var f:plik;var p:lista):word;
var s:char
ilosc:word;
begin
assign(f,'plik.dat');
{SI-}
Blockread(plik,f,1);
{SI+}
if IOResult<>0 then begin
writeln('Blad');
halt(2);
end;
while not eof(f) do begin
read(f,s);
if s in ['a','ą','e','ę','i','y','o','u'] then begin
new(p);
with p^ do begin
dane:=s;
p:=p^nast;
inc(ilosc);
end;
end;
end;
close(f);
wczytaj:=ilosc;
end.