Code:
i:=1
while not eoln(fu) do
  begin
    read(fu,a[i]);
    i := i + 1;
  end;

Code:

type
  T = record
        sortString : String;
        fullString : String;
      end;

var
  SFile   : Text;
  SortStr : String;
  ArrNum  : Integer;
  FData   : Array[1..100] of T;
  C1      : Integer;

procedure SortArray;
var
  C1, C2 : Integer;
  tmp    : String;
begin             { 5, 4, 6, 1 }
  For C1 := 1 to ArrNum - 1 Do
    For C2 := C1 + 1 to ArrNum Do
      If FData[C2].sortString < FData[C1].sortString Then
      Begin
        tmp := FData[C1].sortString;
        FData[C1].sortString := FData[C2].sortString;
        FData[C2].sortString := tmp;
        tmp := FData[C1].fullString;
        FData[C1].fullString := FData[C2].fullString;
        FData[C2].fullString := tmp;
      end;
end;

begin
  Assign(SFile, 'C:\ulaz.txt');
  Reset(SFile);
    While not Eof(SFile) Do
    Begin
      Inc(ArrNum);
      ReadLn(SFile, FData[ArrNum].fullString);
      FData[ArrNum].sortString := Copy(FData[ArrNum].fullString, 2, Pos('",', FData[ArrNum].fullString) - 2);
    End;
  Close(SFile);

  SortArray;

  Assign(SFile, 'C:\izlaz.txt');
  Rewrite(SFile);
    For C1 := 1 to ArrNum Do
      WriteLn(SFile, FData[C1].fullString);
  Close(SFile);
end.

Code:

procedure SortTxtFile(InputFile,OutputFile:TFileName);
const ch='"';
var MyList:TStringList;
    i:integer;
    s:string;
begin
 //Provera ulaznih parametara
  if not FileExists(InputFile)
  then raise Exception.CreateFmt('Datoteka "%s" ne postoji',[InputFile]);

  if OutputFile=''
  then raise Exception.Create('Nije odredjen naziv izlazne datoteke');

  MyList:=TStringList.Create;
  try
     //Ucitavam podatke iz ulazne datoteke
     MyList.LoadFromFile(InputFile);
     //Brisem navodnike
     for i:=0 to MyList.Count-1 do
      begin
        s:=MyList[i];
        while pos(ch,s)>0 do delete(s,pos(ch,s),1);
        MyList[i]:=s;
      end;
     //Sortira listu (TStrilgList koristi QuickSort)
     MyList.Sort;
     //Snimam rezultat u fajl
     MyList.SaveToFile(OutputFile);
   finally
     MyList.Free;
   end;
end;