FolgenMinimum

program FolgenMinimum (input, output);
{ Liest eine Folge von 5 integer-Zahlen
  ein und gibt die kleinste Zahl mit seiner
  Position aus }

const
FELDGROESSE = 5;

type
tIndex = 1..FELDGROESSE;
tZahlenFeld = array [tIndex] of integer;

var
Feld : tZahlenfeld;
Minimum : integer;
Position : tIndex;
i : tIndex;

begin
  { Minimum initialisieren }
    Minimum := maxint;
  
  { Einlesen des Feldes und Ermitteln des Minimum }
  writeln ('Geben Sie ', FELDGROESSE, ' Werte ein:');
  for i := 1 to FELDGROESSE do
  begin
    readln (Feld[i]);
    if Feld[i] < Minimum then
    begin
      Minimum := Feld[i];
      Position := i;
    end
  end;

  { Ausgabe des Minimums und seiner Position }
  writeln ('Der kleinste Wert ist: ', Minimum, ' an der Stelle: ', Position, '.')
end. { FolgenMinimum }