Типизированный, нетипизированный, текстовый файл

[Serge_Bliznykov]

по поводу третьего. Либо Вы не разобрались в претензиях преподавателя, либо он не понимает, как работает программа. В выложенных вами скриншотах тот же самый размер блока в 1 байт (см. Rewrite(f, 1) ). К сожалению, думаю, что эту проблему взаимонепонимания с преподавателем Вам прийдётся решать самостоятельно, я тут не помощник.

[Serge_Bliznykov]

посмотрел.. Вы пытаетесь прямо в файле сортировать?!
Это же удар по здравому смыслу, по оптимальности и по вашему жесткому диску!
Почитайте мой пост #4 в этой теме: Паскаль. Сортировка.

ну если всё вышесказанное Вас не останавливает, тогда попробуйте так:

var
....
  {dlya sortirovki}
  i,j : integer;
  x, y :tov;
  {---------------}


    7:   {Sortirovka po Vozrastaniy Stoimosti}
       begin

       reset(fd);
       for i:=0 to filesize(fd)-2 do
       for j:=i+1 to filesize(fd)-1 do
         begin
           seek(fd,i);
           read(fd,x);
           seek(fd,j);
           read(fd,y);

           if(x.stoim>y.stoim) then
           begin
             seek(fd,i);
             write(fd,y);
             seek(fd,j);
             write(fd,x);
           end;
        end;
        Close(fd);  {SORTIROVKA ZAVERSHENA}

       writeln('Otsortirovannie dannie:');
       writeln(''); {neponimay(  }

       writeln('Vivod dannih:  ');
       assign(fd, fdFileName);
          reset(fd);

          writeln('+----------------------+-----------------------+--------+----------+');
          writeln('|NomZ     Artikyl      |    Naimenovanie       | Kol-vo | Stoimost |');
          writeln('+----------------------+-----------------------+--------+----------+');

          while (not eof(fd)) do
          begin
            read(fd, dan);
            WriteLn('|',filepos(fd), dan.artik: 20, '  | ', dan.naim: 20, '  | ', dan.kol: 6, ' | ', dan.stoim: 6);
          end;
          writeln('+----------------------+-----------------------+--------+----------+');
          close(fd);
          WriteLn; WriteLn('Press Enter to continue');
          Readln;
    end;

p.s. а вы абсолютно зря продолжаете игнорировать мой совет по поводу выделения кода в отдельные процедуры/функции!!