코딩한 부분을 그대로 옮겼거든요 어디서 잘못됬는지 몰라서요..
문제는 for문 쪽인데 i가 1부터 시작안하고 4부터 시작하네요.. 뭐가 잘못됬는지 모르겠네요..
원래 1부터 시작해야 되는게 아닌가요? 밑에 코딩을 따라간다면요..
번거롭지만 답변부탁드리께요.. 급한 일이라서요.. 이것때메 진도가 안나가요.. 그럼 부탁드리께요..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
pop_size = 4;
chrom_size = 5;

var
  Form1: TForm1;

procedure initial_population;

implementation

{$R *.DFM}

procedure initial_population;
var
temp : array[1..pop_size, 1..chrom_size] of real;
i,j,k : integer;
xdec : array[1..pop_size] of real;
begin

for i := 1 to pop_size do

  for j := 1 to chrom_size do

   xdec[i] := xdec[i] + power(2, chrom_size - j);
   form1.edit1.text := floattostr(xdec[1]);
   form1.edit2.text := floattostr(xdec[2]);

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
initial_population;
end;

end.