Программа должна добалять в конец типизированого файла min и max значения из этогоже файла

program Project1;
uses crt;
var
f:file of real;
max,min:real;
j,i,nmax,nmin:integer;
a:array [1..300] of real;
begin
clrscr;
Assign(f,'f.dat');
reset(f);
//Запоминаем в переменной j
//количество компонентов в файле.
j:=filesize(f);
//Считываем компоненты файла в массив а.
for i:=1 to j do read(f,a[i]);
for i:=1 to j do write(a[i]:1:2,' ');
writeln;
close(f);
//Начальное присваивание максимального и
//минимального элементов массива и его индекса.
max:=a[1];min:=a[1];
//Основной цикл для поиска максимального и
//минимального элементов массива и его индекса.
for i:=2 to j do
begin
if a[i]>max then
begin
max:=a[i];
end;
if a[i]<min then
begin
min:=a[i];
end;
end;
reset(f);
Seek(f,j+1);
write(f,max,min);
close(f);
end.

program Project1;
uses crt;
var
f:file of real;
max,min:real;
j,i,nmax,nmin:integer;
a:array [1..300] of real;
begin
clrscr;
Assign(f,'f.dat');
reset(f);
//Запоминаем в переменной j
//количество компонентов в файле.
j:=filesize(f);
//Считываем компоненты файла в массив а.
for i:=1 to j do read(f,a[i]);
close(f);
//Начальное присваивание максимального и
//минимального элементов массива и его индекса.
max:=a[1];min:=a[1];
//Основной цикл для поиска максимального и
//минимального элементов массива и его индекса.
for i:=2 to j do
begin
if a[i]>max then
max:=a[i];
end;
for i:=2 to j do
begin
if a[i]<min then
min:=a[i];
end;
reset(f);
Seek(f,j+1);
write(f,max,min);
close(f);
end.

uses crt;
var f:file of integer;
    a,mx,mn,i:integer;
begin
clrscr;
assign(f,'file');
{создаем файл, если создан, не нужно}
rewrite(f);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
read(f,mx);{читаем первое число, пока они мин и макс}
mn:=mx;
write(mx,' ');
for i:=1 to filesize(f)-1 do{читаес со второго до конца}
 begin
  read(f,a);
  write(a,' ');
  if a>mx then mx:=a;
  if a<mn then mn:=a;
 end;
close(f);
writeln;
writeln('Максимальный элемент=',mx);
writeln('Минимальный  элемент=',mn);
reset(f);
seek(f,filesize(f));{встаем в конец файла}
write(f,mn);{дописываем число}
seek(f,filesize(f));
write(f,mx);
close(f);
writeln('Преобразованный файл:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
readln
end.