Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (121528)

program Median (input, output);
{ bestimmt den Median einer einzugebenden Buchstabenfolge aus min******s zwei verschiedenen Kleinbuchstaben}
 
  type 
  tBuchst = 'a'..'z';
  tNatZahl = 0..maxint;
  tFeld = array [tBuchst] of boolean;
  
  var 
  vorhanden : tFeld;
  gesamt, 
  i, 
  MedianPos : tNatZahl;
  Buchstabe : tBuchst;
  Zeichen : char;
  
begin 
{ Eingabe anfordern }
  writeln
    ('Geben Sie eine Kleinbuchstaben-Folge ein.');
  writeln
    ('Eingabe-Ende durch ein anderes Zeichen.');
  
{Initialisierung}
  for Buchstabe := 'a' to 'z' do 
    vorhanden[Buchstabe]:= false;
  gesamt := 0;
  
{ Einlesen und Markierungen setzen }
read (Zeichen);
while (Zeichen >= 'a') and (Zeichen <= 'z' ) do 
 
begin 
  if not vorhanden[Zeichen] then
  begin 
    vorhanden[Zeichen] := true;
    gesamt := gesamt + 1
  end;
  read (Zeichen)
  end;
  writeln;
  
  { Alle Buchstaben und Marken ausgeben }
  for Buchstabe := 'a' to 'z' do 
    write (Buchstabe);
  writeln;
  for Buchstabe := 'a' to 'z' do 
     if vorhanden[Buchstabe] then 
       write ('*')
     else 
       write (' ');
  writeln;
  
  { Median suchen }
  MedianPos := ( gesamt + 1 ) div 2;
  i := 0;
  repeat 
    if vorhanden[Buchstabe] then 
      i := i + 1;
    Buchstabe := succ (Buchstabe)
  until i = MedianPos;
  writeln ('Der Median ist: ', pred (Buchstabe), '.')
end. {Median}