InsertSort

[Overprogrammer]

Hallo Leute, ich hab ein Problem ich hab hier den Quelltext für ein insertionSort-Programm aber ich krieg nicht angepasst so das ich die Zahlen per editfeld eingeben und die sortierten Daten in einer Listbox ausgegeben werden...
LG Overprogrammer

Delphi-Quellcode:

 for i:= 1 to 6 do
  if (a[i]<a[i-1]) then
  begin
    j:= i;
    tmp := a[i];
    while (j > 0) and (a[j-1] > tmp) do
    begin
      // Verschieben:
      a[j]:= a[j-1];
      Dec(j);
    end;
    a[j]:= tmp;
end;