'...' erwartet aber '...' gefunden?

Hallo an allen,

zuerst den Code:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

var
  f, alter:Integer;
  durchschnitt1, durchschnitt2, durchschnitt3: Double;
begin
  WriteLn('Morgenschicht:');
  WriteLn;
  for f:=1 to 5 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt1 := durchschnitt1 + alter;
  end;
  durchschnitt1 := Round((durchschnitt1 / 5),2);
  WriteLn;
  WriteLn;
  WriteLn('Spätschicht:');
  WriteLn;
  for f:=1 to 6 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt2 := durchschnitt2 + alter;
  end;
  durchschnitt2 := Round((durchschnitt2 / 6),2);
  WriteLn;
  WriteLn;
  WriteLn('Nachtschicht:');
  WriteLn;
  for f:=1 to 11 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt3 := durchschnitt3 + alter;
  end;
  durchschnitt3 := Round((durchschnitt3 / 11),2);
  WriteLn;
  WriteLn;
  WriteLn('Das Durchschnittsalter der Schüler der Morgenschicht beträgt: ', durchschnitt1, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Spätschicht beträgt: ', durchschnitt2, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Nachtschicht beträgt: ', durchschnitt3, '.');
  if (durchschnitt1 > durchschnitt2) and (durchschnitt1 > durchschnitt3) then
  begin
    Write('Die Morgenschicht hat das höchste Durchschnittsalter.');
  end
  else
  begin
    if durchschnitt2 > durchschnitt3 then
    begin
      Write('Die Spätschicht hat das höchste Durchschnittsalter.');
    end
    else
    if durchschnitt3>durchschnitt1 then
    begin
      Write('Die Nachtschicht hat das höchste Durchschnittsalter.');
    end;
  end;
  ReadLn;
end.

Ich habe aber folgende Fehlermeldung bekommen:

1) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

2) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

Diese Meldungen sind für mich nicht logisch. Was habe ich falsch gemacht bzw. wie kann ich diese Fehler lösen?

Danke und Grüße

Computer, Programmierung, Delphi
2 Antworten