1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
  if dummy = fehler[f] then//gibt es einen Fehler, der gleich dem dummy ist?
  begin
    inc(fehlerx[f]);//inc Fehlerz�ler fr diesen Fehler
  end else begin//wenn nicht gleich...
             fehler[f]:= dummy;//...dann lege einen neuen Fehler an
             fehlerx[f] := 1;//setze Z�ler auf 1
             inc(q);//inc den Gesamtfehlerz�ler
             exit;
            end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Var
  BookList : TStringlist;

Begin
  Booklist := TStringlist.Create;
  Booklist.Sorted := True;
  ForEach Book in MyBooks do begin
     i := Booklist.indexOf (Book.Title);
     If i=-1 Then
       Booklist.AddObject (Book.Title, Pointer (1))
     else 
       Booklist.Objects[i] := Pointer (Integer (Booklist.Objects[i]) + 1);
     End;
End;					

1:
2:
3:
4:
5:
6:
7:
8:

type
  TBook = record
    Name: String;
    Anzahl: Integer;
  end;

var
  Book: Array of TBook;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  FindBook: Integer;
  Found:    Boolean;
begin
  for ...   // Je nachdem wie du deine Bücher holst...
  begin
    Found := False;

    for FindBook := 0 to Length(Book) do
      if Book[FindBook].Name = 'Herr der Ringe' then
      begin
        Found := True;
        Book[FindBook].Anzahl := Book[FindBook].Anzahl + 1;
      end;

    if not (Found) then
    begin
      SetLength(Book, Length(Book) + 1);
      Book[Length(Book) - 1].Name   := 'Herr der Ringe';
      Book[Length(Book) - 1].Anzahl := 1;
    end;
  end;
end;