Преобразовать формат сведений об учащихся следующим образом

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows,
  Classes;
 
procedure Output(L: TStringList);
var
 i: integer;
 s: String;
begin
 Writeln('');
 for i := 0 to L.Count - 1 do
  begin
   s := StringReplace(L.Strings[i], ',', ' ', [rfReplaceAll]);
   Writeln(s);
  end;
 Writeln('');
end;
 
var
 L1, L2, TMP: TStringList;
 i: integer;
 fn, fn_mix, s: String;
begin
 SetConsoleCP(1251);
 SetConsoleOutputCP(1251);
 fn := ExtractFilePath(ParamStr(0)) + 'file.dat';
 fn_mix := ExtractFilePath(ParamStr(0)) + 'file_mix.dat';
 if FileExists(fn) then
  begin
   L1 := TStringList.Create;
   L2 := TStringList.Create;
   TMP := TStringList.Create;
   L1.LoadFromFile(fn);
   L1.Text := Trim(L1.Text);
   for i := 0 to L1.Count - 1 do
    begin
     TMP.CommaText := L1.Strings[i];
     s := TMP.Strings[0];
     TMP.Exchange(0, 3);
     TMP.Delete(3);
     TMP.Insert(1, s);
     L2.Add(TMP.CommaText);
    end;
   TMP.Free;
   L2.Sort;
   L2.SaveToFile(fn_mix);
   Writeln('Старый файл:');
   Output(L1);
   Writeln('Новый файл:');
   Output(L2);
   L1.Free;
   L2.Free;
  end
 else Write('Не найден файл данных. Программа завершает свою работу');
 Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
type TPerson = record
 F, I, O, TN: String;
end;
 
var
 fn, fn_mix, s: String;
 f1, f2: TextFile;
 A: array of TPerson;
 P: TPerson;
 N, i, j: integer;
begin
 SetConsoleCP(1251);
 SetConsoleOutputCP(1251);
 fn := ExtractFilePath(ParamStr(0)) + 'file.dat';
 fn_mix := ExtractFilePath(ParamStr(0)) + 'file_mix.dat';
 if not FileExists(fn) then
  begin
   Writeln('Не найден исходный файл! Нажмите ENTER для выхода');
   Readln;
   Exit;
  end;
 AssignFile(f1, fn);
 AssignFile(f2, fn_mix);
 Reset(f1);
 Rewrite(f2);
 N := 0;
 SetLength(A, N);
 Writeln('Старый файл:');
 Writeln('');
 while not Eof(f1) do
  begin
   Readln(f1, s);
   P.F := Copy(s, 1, Pos(',', s) - 1);
   Delete(s, 1, Pos(',', s));
   P.I := Copy(s, 1, Pos(',', s) - 1);
   Delete(s, 1, Pos(',', s));
   P.O := Copy(s, 1, Pos(',', s) - 1);
   Delete(s, 1, Pos(',', s));
   P.TN := s;
   Writeln(P.F, ' ', P.I, ' ', P.O, ' ', P.TN);
   inc(N);
   SetLength(A, N);
   A[N - 1] := P;
  end;
 CloseFile(f1);
 for i := 0 to N - 2 do
  for j := 0 to N - i - 2 do
   if A[j].TN > A[j + 1].TN then
    begin
     P := A[j];
     A[j] := A[j + 1];
     A[j + 1] := P;
    end;
 Writeln('');
 Writeln('Новый файл:');
 Writeln('');
 for i := 0 to Length(A) - 1 do
  begin
   s := Format('%s,%s,%s,%s', [A[i].TN, A[i].F, A[i].I, A[i].O]);
   Writeln(f2, s);
   Writeln(StringReplace(s, ',', ' ', [rfReplaceAll]));
  end;
 CloseFile(f2);
 Writeln('Готово!');
 Readln;
end.