Создание рабочей программы с массивами

var
a : array[1..100] of byte;
i,n,k : byte;
sum : integer;
begin
write('input razmernostx n [2..100] : '); readln(n); randomize;
writeln('massive:'); sum:=0;
for i:=1 to n do begin
a[i]:=random(99);
if a[i]<21 then sum:=sum+a[i];
write(a[i]:4);
end;
writeln; writeln('Summa ne prew 20 = ',sum);
write('wwedite nomer el-ta dlq udaleniq k [1..',n,'] : '); readln(k);
dec(n);
for i:=k to n do a[i]:=a[i+1];
writeln('massive posle udaleniq ',k,' el-ta:');
k:=1;
for i:=1 to n do begin
if a[k]>=a[i] then k:=i;
write(a[i]:4);
end; writeln;
writeln('poslednij min el-t = ',a[k],' stoit na ',k,' meste.');
a[n+1]:=a[1]; a[1]:=a[k]; a[k]:=a[n+1];
writeln('massive posle perestanowki ',k,' i 1 mest el-tov:');
for i:=1 to n do write(a[i]:4); writeln;
readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,sum:integer;
begin
StringGrid1.ColCount:=StrToInt(LabeledEdit1.Text);
randomize;
sum:=0;
 for i:=0 to StringGrid1.ColCount-1 do
  begin
  k:=random(30);
  StringGrid1.Cells[i,0]:=IntToStr(k);
  if k<20 then sum:=sum+k;
  end;
  Label1.Caption:=Label1.Caption+IntToStr(sum);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
  for i:=StrToInt(LabeledEdit2.Text) to StringGrid1.ColCount-1 do
    StringGrid1.Cells[i,0]:=StringGrid1.Cells[i+1,0];
    StringGrid1.ColCount:=StringGrid1.ColCount-1;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i,min,ind,k,temp:integer;
begin
min:=StrToInt(StringGrid1.Cells[0,0]);
 for i:=0 to StringGrid1.ColCount-1 do
  begin
  k:=StrToInt(StringGrid1.Cells[i,0]);
  if k<=min then
   begin
    min:=k;
    ind:=i;
   end;
  end;
  Label2.Caption:='Ìèíèìàëüíûé ýëåìåíò: '+IntToStr(min)+' íà ïîçèöèè: '+IntToStr(ind);
 //тут быстрая замена первого и минимального.Позиция на которой стоял минимальный определяется верно
  Temp:=StrToInt(StringGrid1.Cells[ind,0]);
  StringGrid1.Cells[ind,0]:=StringGrid1.Cells[0,0];
  StringGrid1.Cells[0,0]:=IntToStr(temp);
   end;