написать подпрограмму, которая заменяет все гласные буквы в строке на заданный символ (pascal)

[Jeivi]

Дано: в текстовом файле fin.txt находится текст на русском языке. С клавиатуры вводится символ С.
Требуется: написать подпрограмму, которая заменяет все гласные буквы в строке на заданный символ и, используя эту подпрограмму, сформировать текстовый файл fout.txt, в K-ой строке которого записана строка, полученная описанной выше заменой символов в К-ой строке файла fin.txt

[Aleksandr H.]

function Vovel(s:string;c:char):string;
var i:byte;
begin
for i:=1 to length(s) do if upcase(s[i]) in ['А','У','Е','И','О','Ы','Э','Ю','Я'] then s[i]:=c;
vovel:=s
end;