Koristenje pointera

Code:

unit untListaRijeci;

interface

type
  TKnoopPtr = ^TKnoop;

  TKnoop = record
             sWoord: String;
             kpNextKnoop: TKnoopPtr
           end;

procedure CitajRijeci (sFileName: String);
 { Ucitava rijeci iz jednog file i dodaje ovu u listu rijeci, ali poslije da je alfabetski sortirana.}

procedure SacuvajRijeci (sFileName: String);
 { Dodaje sve rijeci iz liste rijeci u file}

implementation

var
  kpFirst: TKnoopPtr = NIL;

procedure Sortiranje (sRijec: String);
{ Rijec  <sRijec> se dodaje na pravo mjesto (alfabetski sortirano) u listu rijeci }
var
  ..............................................................
begin
  .............................................................
end;


procedure CitajRijeci (sFileName: String);
var
  tFile: TextFile;
  kpNovoKnoop: TKnoopPtr;
begin
  AssignFile (tFile, sFileName);
  Reset (tFile);
  while not Eof (tFile)
  do begin
     ...............................................................
  end;
 CloseFile (tBestand)
end;

procedure SacuvajRijeci (sFileName: String);
var
  tFile: TextFile;
begin
  AssignFile (tFile, sFileName);
  Rewrite (tFile);
    .................................................................  
  CloseFile (tBestand)
end;

end.

Code:

procedure SacuvajRijeci (sFileName: String);
var
  tFile: TextFile;
begin
  AssignFile (tFile, sFilename);
  Rewrite (tFile);
  iTeller := 0;
  for iIndex := 0 to iAantal -1
  do
    Write(tFile, arrKnoop[iIndex]);
  CloseFile (tFile)
end;