delphi书写格则? - Delphi / 非技术区

在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?

以下是我在网上找的一段程序代码

===============================================================================

procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
  I,J:integer; SUM:real;
begin
  For I:=1 To N do
  begin
  Sum:=B[I];
  For J:=1 To I - 1 do
  Sum:=Sum - A[I, J] * B[J];
  B[I]:=Sum;
  end;
  For I:=N DownTo 1 do
  begin
  If D[I] = 0 Then
  begin
  ShowMessage('Singular Matrix');
  Exit;
  end
  Else
  Sum:=B[I] / D[I];
  For J:=I + 1 To N do
  Sum:=Sum - A[J, I] * B[J];
  B[I]:=Sum;
  end;
end;


为什么不能写成这样?
===============================================================================
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
Sum:=Sum - A[I, J] * B[J];
B[I]:=Sum;
end;
For I:=N DownTo 1 do
begin
If D[I] = 0 Then
begin