Дан файл

[bbs-serega]

Дан файл вещественных чисел.Заменить в файле каждый элемент,кроме начального и конечного,на его среднее арифметическое с предыдущим и последующим элементом.

[bbs-serega]

Program bbs;
uses crt;
var f:file of real;
n,i:integer;
a,b,c,d:real;
begin
randomize;
assign(f,'file');
rewrite(f);
write('Сколько чисел записать в файл n=');
read(n);
for i:=1 to n do
begin
a:=20*random;
write(f,a);
end;
writeln('Исходный файл:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
writeln;
for i:=1 to filesize(f)-2 do
begin
seek(f,i-1);
read(f,a);
seek(f,i);
read(f,b);
seek(f,i+1);
read(f,c);
d:=(a+b+c)/3;
seek(f,i);
write(f,d);
end;
writeln('Содержание измененого файла:');
seek(f,0);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
close(f);
end.

нужна еще блок схема плиз .....