Frage zu Pascal

[HW_Junkie]

Dann kommte bei beiden:

Error 85: ";" expected.

Der Sourcecode:

PROGRAM PrimTest; {W-Dur}

VAR
eingabe: STRING;
n, t: LongInt;
c: Integer;

BEGIN
WriteLn('keine Eingabe -> Beenden');
REPEAT
Write('Testzahl: '); ReadLn(eingabe);
Val(eingabe, n, c);
IF eingabe='' THEN ELSE
IF c>0 THEN ELSE
IF n<1 THEN ELSE
IF n=1 THEN WriteLn('keine Primzahl') ELSE
IF (n=2) OR (n=3) THEN WriteLn('Primzahl') ELSE
IF n MOD 2=0 THEN WriteLN('gerade Zahl') ELSE
BEGIN {Zahl testen}
t:=1;
REPEAT
t:=t+2
UNTIL (t*t>n) OR (n MOD t=0);
IF n MOD t=0
THEN WriteLn('teilbar durch ', t)
ELSE WriteLn('Primzahl')
END
UNTIL eingabe=''
END.

Eben ohne diese beiden Commands die du mir gegeben hast funzts.

MfG HW_Junkie