Типизированный файл: Заменить все строки, начинающиеся с гласной буквы на последнюю строку в файле

var f:file of string;
    n,i:integer;
    s:string;
begin
assign(f,'fileF');
rewrite(f);
write('Сколько строк записать n=');
readln(n);
writeln('Введите ',n,' строк латинскими буквами,');
writeln(' в том числе начинающиеся с гласной');
for i:=1 to n do
 begin
  readln(s);
  write(f,s);
 end;
writeln('Файл строк fileF создан');
readln
end.

const gl=['A','E','I','O','U'];
var f:file of string;
    i:integer;
    s,p:string;
begin
assign(f,'fileF');
reset(f);
seek(f,filesize(f)-1);
read(f,p);
seek(f,0);
for i:=0 to filesize(f)-2 do
 begin
  read(f,s);
  if Upcase(s[1]) in gl then
   begin
    seek(f,i);
    write(f,p);
   end;
 end;
writeln('Измененный файл');
seek(f,0);
while not eof(f) do
 begin
  read(f,s);
  writeln(s);
 end;
close(f);
readln
end.