If Anweisung... Block?

[GanjaGott]

danke, hab den quelltext jetzt nochmal editiert, aber wie kann ich das jetzt mit dem repeat machen? könnte mir es vielleicht mal jemand in den quellcode einfügen sowie es sein muss? danke im voraus

Delphi-Quellcode:

program Vendetta;

{$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
  else if ein = 'Messerstecher' then pun:=anz*4
  else if ein = 'Tuersteher' then pun:=anz*6
  else if ein = 'Revolverheld' then pun:=anz*21
  else if ein = 'Besetzungstruppe' then pun:=anz*251
  else if ein = 'Spion' then pun:=anz*3
  else if ein = 'Moebelpacker' then pun:=anz*9
  else if ein = 'CIA Agent' then pun:=anz*87
  else if ein = 'FBI Agent' then pun:=anz*48
  else if ein = '´Transporteur' then pun:=anz*51
  else if ein = 'Ninja' then pun:=anz*236
  else if ein = 'Scharfschuetze' then pun:=anz*28
  else if ein = 'Soeldner' then pun:=anz*1176
  else if ein = '`Schwarzgeldarbeiter' then pun:=anz*4
  else if ein = 'Bodyguard' then pun:=anz*43
  else if ein = 'Polizist' then pun:=anz*54
  else if ein = 'Profikiller' then pun:=anz*176
  else if ein = 'Objektwache' then pun:=anz*21
  else if ein = 'Guarde' then pun:=anz*388
  else if ein = 'Problemlöser' then pun:=anz*93
  else 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 ('Die Gesamtpunktzahl betraegt: ',pun,' ');
  writeln;
  writeln;
  writeln;
  readln;
  end.