2个简易代码（冒泡排序＋fibonacci）

下面是冒泡排序代码：
PROGRAM bubble_sort;//
CONST N = 10;
VAR A : ARRAY[ 1..N ] OF INTEGER;
　T, I, J : INTEGER;
　FLAG :BOOLEAN;
BEGIN
　WRITE( '输入10个整数:' );
　FOR I:= 1 TO N DO READ( A[I] );
　READLN; WRITELN;
　I:=1;
　REPEAT
　　FLAG:= TRUE;
　　FOR J:= 1 TO N-I DO
　　　IF A[J] > A[J+1] THEN
　　　　BEGIN
　　　　　T:=A[J]; A[J]:=A[J+1]; A[J+1]:=T;
　　　　　FLAG:= FALSE
　　　　END;
　　I:=I+1;
　UNTIL FLAG ;
　WRITE( '输出排序结果:' );
　FOR I:= 1 TO N DO WRITE( A[I]:3 );
　WRITELN; READLN;
END.
**********************************************************************
procedure TForm1.Button1Click(Sender: TObject);
var
  temparray:array[0..9] of Integer;
  i,j,temp:Integer;
  s:string;
begin
  temparray[0]:=StrToInt(edit1.Text);
  temparray[1]:=StrToInt(edit2.Text);
  temparray[2]:=StrToInt(edit3.Text);
  temparray[3]:=StrToInt(edit4.Text);
  temparray[4]:=StrToInt(edit5.Text);
  temparray[5]:=StrToInt(edit6.Text);
  temparray[6]:=StrToInt(edit7.Text);
  temparray[7]:=StrToInt(edit8.Text);
  temparray[8]:=StrToInt(edit9.Text);
  temparray[9]:=StrToInt(edit10.Text);
  i:=0;
  while i<High(temparray) do begin
      if temparray[i]>temparray[i+1] then
       begin
        temp:=temparray[i];
        temparray[i]:=temparray[i+1];
        temparray[i+1]:=temp;
        i:=0;
        end
      else i:=i+1;
  end;
  s:='';
  for j:=0 to 9 do
    s:=s+IntToStr(temparray[j])+' ';
   label2.Caption:=s;

end;
**********************************************************//
下面是fibonacci代码：

program Project2;
{$APPTYPE CONSOLE}
var
a,b,c,i:integer;
begin
i:=0;
a:=1;
b:=1;
writeln(1);
writeln(1);
repeat
c:=a+b;
a:=b;
b:=c;
writeln(c);
inc(i);
until i>=38;
readln;

end.

*****************************************************************
PROGRAM bubble_sort;
{$apptype console}
CONST N = 10;
  var i:integer;
Function fibon(n:integer):integer;
begin
  if n=0 then fibon:=0;
  if n=1 then fibon:=1;
  if n>1 then fibon:=fibon(n-1)+fibon(n-2);
end;
BEGIN
for i:=0 to 40 do
writeln(fibon(i));
readln;
END.