简单的算法，怎么用冒泡排序得到数组中最小的值？

Question

数组record：array[1..10] of string;
它记录的是日期编号
怎么得到这个数组中最小的值
最好写出比较完整的代码

Answer 1

for i:=1 to 9 do begin
  for j:=1 to i do begin
    if record[j] > record[j+1] then
    begin
      t = record[j];
      record[j] = record[j+1];
      record[j+1] = t;
    end;min := record[10];

Answer 2

最小值的那个数组的序号
var 
index:integer;
temp:string;temp:=record[1];
for i:=1 to 9 do 
begin
  if strtodate(temp) < strdte(record[i+1]) then 
  begin
    index = i;
  end 
  else 
  begin
    temp:=record[i+1];
    index = i+1;
  end;
end;

Answer 3

哥们你的确懒得可以，这个代码你要是都不会写，不知道你程序怎么写的。
var
index: integer;index:=1;
for i:=2 to 10 do 
  if strtodate(record[index]) < strtodate(record[i]) then 
    index = i;index 就是最小的记录号