Запись в файл

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
var f:file of real;
  i,n, ntri, nmin:integer;
  a:array [0..100] of real;
  tri, min: real;
  begin
    AssignFile(f, 'D:\12.txt');
    rewrite (f);
    write ('n= '); readln(n);
    for i:=1 to n do
    begin
     write('a= ');readln(n);
     write (f,a[i]);
      end;
      tri:=a[0]; ntri:=0;
      min:=a[0]; nmin:=0;
      for i:=1 to filesize (f)-1 do
      begin
        tri:=a[2];
        ntri:=2
      end;
      if a[i]<min then
      begin
        min:=a[i];
        nmin:=i
        end;
 
seek (f, ntri);
write (f, min);
seek (f, nmin);
write (f, tri);
closefile (f);readln;
end.

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
var
  f : file of integer;
  i, n, a, min, nmin : integer;
 
begin
  AssignFile(f, 'D:\test\12.dat');
  rewrite (f);
  write ('n= '); readln(n);
  for i:=1 to n do // заполняем файл вводимыми числами
  begin
    write('a= '); readln(n);
    write (f, n);
  end;
 
  reset(f); // переоткрываем, чтобы файл записался полностью
  nmin := -1; min := maxint;
  while not eof(f) do // находим минимум среди положительных и запоминаем его и его позицию
  begin
    read(f, n);
    if (n > 0) and (n < min) then
    begin
      nmin := filepos(f) - 1;
      min := n;
    end;
  end;
  if nmin > -1 then // если положительный элемент был найден
  begin
    seek(f, 2); read(f, n); // читаем третий от начала файла
    seek(f, 2); write(f, min); // пишем на его место минимальный
    seek(f, nmin); write(f, n); // а на место минимального - третий
  end; // иначе можешь вывести сообщение, что положительных значений в файле нет...
 
  reset(f);
 
  // для теста - выводим новое содержимое файла
  while not eof(f) do
  begin
    read(f, n);
    writeln(n);
  end;
  closefile(f);
  readln;
end.