Funktion min

zahlen, sortiert: Array [1..10] of Integer;
function min(): Integer;

function TForm1.min(): Integer;
var m, i: Integer;
begin
  m := zahlen[1];

  for i:=2 to 10 do
    if zahlen[i] < m then
      m := zahlen[i];

  min := m;
end;

lokal