
PROGRAM JuengstePerson;

CONST max=100;  { maximale Personenzahl }

TYPE Folge=ARRAY[1..max] OF Integer;

VAR a     : Folge;
    j,i,n : Integer;

FUNCTION MinIndex(n : Integer;  VAR a : Folge) : Integer;
{ liefert den Minimalindex in dem Feld a[1] .. a[n] }
VAR i,j,x : Integer;
BEGIN
 j:=1;
 x:=a[j];
 i:=2;
 WHILE i<=n DO { Schleife }
 BEGIN
  IF a[i]<x THEN
  BEGIN
   j:=i;
   x:=a[j];
  END;
  i:=i+1;
 END;
 MinIndex:=j;
END;

{ Hauptprogramm }
BEGIN
 REPEAT
  Write('Bitte Anzahl der Personen eingeben: ');
  ReadLn(n);
 UNTIL (n>=1) AND (n<=max);
 WriteLn;
 i:=1;
 WHILE i<=n DO
 BEGIN
  Write('Bitte Alter der ',i,'. Person eingeben: ');
  ReadLn(a[i]);
  i:=i+1;
 END;
 j:=MinIndex(n,a);
 WriteLn;
 WriteLn;
 WriteLn('Juengste Person ist Nr. ',j);
END.
