If Anweisung... Block?

[GanjaGott]

Habe das jetzt mal probiert wie es inherited gesagt hat, hier ist mein kompletter quellcode... allerdings funkz das prog jetzt nicht mehr da er jetzt am ende immer 0 hinschreibt... Was kann ich dagegen machen und wie würde das mit dem repeat innerhalb dieses quellcodes aussehen?

Delphi-Quellcode:

program Einheiten;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
ein :string;
anz, pun : integer;

begin
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 ein = 'Revolverheld' then pun:=anz*21;
  if ein = 'Besetzungstruppe' then pun:=anz*251;
  if ein = 'Spion' then pun:=anz*3;
  if ein = 'Moebelpacker' then pun:=anz*9;
  if ein = 'CIA Agent' then pun:=anz*87;
  if ein = 'FBI Agent' then pun:=anz*48;
  if ein = '´Transporteur' then pun:=anz*51;
  if ein = 'Ninja' then pun:=anz*236;
  if ein = 'Scharfschuetze' then pun:=anz*28;
  if ein = 'Soeldner' then pun:=anz*1176;
  if ein = '`Schwarzgeldarbeiter' then pun:=anz*4;
  if ein = 'Bodyguard' then pun:=anz*43;
  if ein = 'Polizist' then pun:=anz*54;
  if ein = 'Profikiller' then pun:=anz*176;
  if ein = 'Objektwache' then pun:=anz*21;
  if ein = 'Guarde' then pun:=anz*388;
  if ein = 'Problemlöser' then pun:=anz*93;
  if ein = 'Bombenleger' then pun:=anz*281
  else pun:=0;
  writeln;
  writeln;
  if pun = 0 then writeln ('Die Einheit wurde leider nicht gefunden')
  else   writeln ('Hier die Gesamtpunktzahl:'); writeln (pun);
  writeln;
  writeln;
  writeln;
  readln;
  end.