Программирование в Delphi

[програмтехнарь]

Помогите пожалуйста с кодом для этой задачи:

Дан массив положительных элементов,вычислить наименьший элемент и вычесть из каждого элемента этот минимальный элемент.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var p:array[1..10] of integer;
    i,m:integer;
begin
   Randomize;
   Label1.Caption:='';
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Label1.Caption:=Label1.Caption+IntToStr(p[i])+'  ';
   end;
   Label1.Caption:=Label1.Caption+#13#10;
   m:=p[1];
   For i:=2 to 10 do
      If m>p[i] then
         m:=p[i];
   For i:=1 to 10 do
      p[i]:=p[i]-m;
   For i:=1 to 10 do
      Label1.Caption:=Label1.Caption+IntToStr(p[i])+'  ';
end;

[eoln]

ноль надо выкинуть

Random(21)+1