Создать выходной файл с записями в виде инициалов студента

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
var
  F1, F2 : TextFile;
  //Входная и выходная строки.
  Str1, Str2 : String;
  //i - индекс символов во входной строке.
  //j - порядковые номера слов.
  //Len - длина входной строки.
  //Pos1 - позиция начала слова во входной строке.
  i, j, Len, Pos1 : Integer;
begin
  AssignFile(F1, Fn1);
 
  //Записываем данные во входной файл.
  Rewrite(F1);
  Writeln(F1, 'Фамилия_1 А_имя Б_отчество');
  Writeln(F1, 'Фамилия_2 В_имя Г_отчество');
  Writeln(F1, 'Фамилия_3 Д_имя Е_отчество');
  Write(F1, 'Фамилия_4 З_имя И_отчество');
  //Запись содержимого файлового буфера в файл.
  Flush(F1);
 
  //Читаем построчно данные из входного файла,
  //обрабатыаем их и записываем результирующие
  //строки в выходной файл.
 
  AssignFile(F2, Fn2);
  Rewrite(F2);
  Reset(F1);
  while not Eof(F1) do begin
    Read(F1, Str1);
    Len := Length(Str1);
    Pos1 := 1;
    j := 0;
    for i := 1 to Length(Str1) do begin
      //Пропускаем разделители.
      if Str1[i] = ' ' then Continue;
      //Отслеживаем начало слова.
      if (i = 1) or (Str1[i - 1] = ' ') then Pos1 := i;
      //Отслеживаем конец слова.
      if (i = Len) or (Str1[i + 1] = ' ') then begin
        //Порядковый номер слова.
        Inc(j);
        //Формируем выходную строку.
        case j of
          //Фамилия.
          1 : Str2 := Copy(Str1, Pos1, i - Pos1 + 1);
          //Имя.
          2 : Str2 := Str2 + ' ' + AnsiUpperCase( Str1[Pos1] ) + '.';
          //Отчество.
          3 : begin
            Str2 := Str2 + ' ' + AnsiUpperCase( Str1[Pos1] ) + '.';
            //Выхдим - т. к. отчество - это последняя нужная нам часть строки.
            Break;
          end;
        end; //case
      end; //if
    end; //for
 
    //Запись результирующей строки в выходной файл.
    Write(F2, Str2);
    //Если достигнут конец строки, но конец файла ещё не достигнут,
    //тогда выполняем переход к следующей строке во входном и выходном файле.
    if Eoln(F1) and ( not Eof(F1) ) then begin
      Readln(F1);
      Writeln(F2);
    end;
  end;
 
  //Закрываем файлы.
  CloseFile(F1);
  CloseFile(F2);
 
  //Flush(F2); здесь выполнять не обязательно, т. к., при закрытии файла
  //файловый буфер переписывается в файл без дополнительных команд.
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
var
  F1, F2 : TextFile;
  //Входная и выходная строки.
  Str1, Str2 : String;
  //i - индекс символов во входной строке.
  //j - порядковые номера слов.
  //Len - длина входной строки.
  //Pos1 - позиция начала слова во входной строке.
  i, j, Len, Pos1 : Integer;
begin
  AssignFile(F1, Fn1);
 
  //Записываем данные во входной файл.
  Rewrite(F1);
  Writeln(F1, 'Фамилия_1 А_имя Б_отчество');
  Writeln(F1, 'Фамилия_2 В_имя Г_отчество');
  Writeln(F1, 'Фамилия_3 Д_имя Е_отчество');
  Write(F1, 'Фамилия_4 З_имя И_отчество');
  //Запись содержимого файлового буфера в файл.
  Flush(F1);
 
  //Читаем построчно данные из входного файла,
  //обрабатыаем их и записываем результирующие
  //строки в выходной файл.
 
  AssignFile(F2, Fn2);
  Rewrite(F2);
  Reset(F1);
  while not Eof(F1) do begin
    Readln(F1, Str1);
    Len := Length(Str1);
    Pos1 := 1;
    j := 0;
    for i := 1 to Length(Str1) do begin
      //Пропускаем разделители.
      if Str1[i] = ' ' then Continue;
      //Отслеживаем начало слова.
      if (i = 1) or (Str1[i - 1] = ' ') then Pos1 := i;
      //Отслеживаем конец слова.
      if (i = Len) or (Str1[i + 1] = ' ') then begin
        //Порядковый номер слова.
        Inc(j);
        //Формируем выходную строку.
        case j of
          //Фамилия.
          1 : Str2 := Copy(Str1, Pos1, i - Pos1 + 1);
          //Имя.
          2 : Str2 := Str2 + ' ' + AnsiUpperCase( Str1[Pos1] ) + '.';
          //Отчество.
          3 : begin
            Str2 := Str2 + ' ' + AnsiUpperCase( Str1[Pos1] ) + '.';
            //Выхдим - т. к. отчество - это последняя нужная нам часть строки.
            Break;
          end;
        end; //case
      end; //if
    end; //for
 
    //Запись результирующей строки в выходной файл.
    Writeln(F2, Str2);
  end;
 
  //Закрываем файлы.
  CloseFile(F1);
  CloseFile(F2);
 
  //Flush(F2); здесь выполнять не обязательно, т. к., при закрытии файла
  //файловый буфер переписывается в файл без дополнительных команд.
end;