Проблема с записью в файл (Паскаль)

[ThisIzGame]

Здравствуйте, вот такая проблема возникла.
Дана задача, вводится некоторе кол-во студентов, программа их считывает и
затем сортирует их в порядке "А,Б,В,Г" и записывает в файл. файл типизирован.

В общем я написал, но:

Program A;
uses crt;
const
N=3;    {Кол-во студентов}
type
 Student=string[15];  {макс. размер фамилии}


 var
 F:file of Student;
 name:Student;
 i,j:integer;
 Sort:Array[1..N] of Student;
 t:boolean;     {для сортировки}
 begin
 clrscr;
 i:=1;
 j:=0;
 t:=true;
  Assign(F, 'C:\F.txt');
  Rewrite(F);

       while i<=N do   {вводим студентов}
       begin
           readln(name);
           Sort[i]:=name;
           for j:=1 to 15 do
               name[j]:=' ';
           i:=i+1;
       end;

             while(t) do      {затем сортируем}
              begin
              t:=false;
                for j:=1 to N-1 do
                begin
                   if(Sort[j]>Sort[j+1]) then
                   begin
                    t:=true;
                    name:=Sort[j+1];

                  Sort[j+1]:=Sort[j];
                      Sort[j]:=name;
                     for i:=1 to 15 do
                       name[i]:=' ';

                   end;
                end;
              end;
              for i:=1 to N do   { вот так выглядит наш массив. ВСё хорошо}
                 writeln(Sort[i]);

             for i:=1 to N do   {записываем в файл}
               begin
                 Seek(F,filesize(F));  { в конец файла}
                Write(F,Sort[i]);
                
               end;

  Close(F);
  end.

Но есть проблема:
Например Ввожу я фамиии Сидоров Иванов Петров.
После сортировки просматриваю элементы массива всё отлично: Иванов, Петров, Сидоров.
Но когда записываю в файл в файле почему-то выводятся: Ivanovv, Petrovv, Sidorov.
В чём проблема? подскажите пожалуйста. Вродем бы и указатель на конец в файла ставлю, а всё-равно...

[eoln]

Сообщение от ThisIzGame

  Rewrite(F);
                 Seek(F,filesize(F));  { в конец файла}
                Write(F,Sort[i]);

Перемещаться в конец не надо. Первоначально файл пустой, а write сам перемещает на следующую позицию. Также лишним будет

           for j:=1 to 15 do
               name[j]:=' ';

Сообщение от ThisIzGame

Но когда записываю в файл в файле почему-то выводятся: Ivanovv, Petrovv, Sidorov.

Файл типизированный и пишутся туда строки длинной 16 байт (первый байт содержит длину строки, затем идут 15 байт данных). Так вот, Ivanov длинной 6 символов, а 7-ой символ v остался от Sidorov в результате обмена через переменную name. Совершенно не важно какой мусор остался от прежних операций, главное то, что данные корректно записаны и также корректно будут прочитаны. Убедится в этом можно открыв файл 'C:\F.txt' двоичным редактором, а блокнотом такие файлы открывать бесполезно.

[ThisIzGame]

спасибо большое за помощь!