Заменить значение последней компоненты файла на число 18 - Turbo Pascal

uses crt;
const max=7;
var f:file;
    n,i:byte;
    a:integer;
begin
clrscr;
repeat
write('Количество компонент от 1 до ',max,' n=');
readln(n);
until n in [1..max];
assign(f,'file');
rewrite(f,2);{2 - 2 байта, тип integer}
writeln('Введите ',n,' натуральных чисел:');
for i:=1 to n do
 begin
  repeat
  write('a',i,'=');
  readln(a);
  until (a>0)and(a<>18);
  blockwrite(f,a,1);{запишем 1 блок в 2 байта}
 end;
writeln('Содержание исходного файла F:');
reset(f,2);
while not eof(f) do
 begin
  blockread(f,a,1);{читаем 1 блок}
  write(a,' ');
 end;
writeln;
seek(f,filesize(f)-1);
a:=18;
blockwrite(f,a,1);
writeln('Содержание измененного файла F:');
seek(f,0);
while not eof(f) do
 begin
  blockread(f,a,1);
  write(a,' ');
 end;
close(f);
readln
end.