Also wenn ich es richtig verstehe brauchst Du überhaupt keine else Anweisung,
Du solltest lediglich deine Variable pun initialisieren.
Delphi-Quellcode:
var
ein : string;
anz, pun : integer;
begin
pun := 0;
writeln ('Vendetta - Einheitenpunktezaehler');
writeln ('Bitte gebe den Namen der Einheit an (Bitte in Vokalen, z. B. Soeldner):');
readln (ein);
writeln ('Bitte gebe Die Anzahl der Einheiten an:');
readln (anz);
if ein = 'Schlaeger' then pun:=anz*6
if ein = 'Messerstecher' then pun:=anz*4
if ein = 'Tuersteher' then pun:=anz*6
...
...
if pun = 0 then writeln ('Die Einheit wurde leider nicht gefunden')
else writeln ('Die Gesamtpunktzahl betraegt: ',pun,' ');
writeln;
writeln;
writeln;
readln;
end.
Macht doch Sinn, oder?
Dein pun ist am Anfang 0 trifft keine if Abfrage zu bleibt es auch so!
Uwe