(Delphi)Блок схема/Выбрать название города. Вывести справку о количестве населения.

[MaXgo]

Правильная ли блок схема? Или я дурак или она такая простая.

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case listbox1.ItemIndex of
0: showmessage('2 799 199 человек');
1: showmessage('496 000 человек');
2: showmessage('1 003 705 человек');
3: showmessage('1 498 000 человек');
4: showmessage('214 000 человек');
5: showmessage('2 009 700 человек');
6: showmessage('425 300 человек');
7: showmessage('1 001 612 человек');
8: showmessage('302 000 человек');
9: showmessage('391 000 человек');
end;
end;

end.

[Sibedir]

Если речь идет о выборе названия города, то наверное так
Блок-схема №1.jpg
Учти, этот вариант работает только при условии, что введенное название города гарантированно присутствует в массиве.
Вот два варианта решения (как на схеме, только доработано, и как у тебя, только правильно)

type
  TCity = record
    Name: string;
    Population: Integer;
  end;

const
  CityArray: array [0..5] of TCity =
    ((Name: 'qqq'; Population: 111),
     (Name: 'www'; Population: 222),
     (Name: 'eee'; Population: 333),
     (Name: 'rrr'; Population: 444),
     (Name: 'ttt'; Population: 555),
     (Name: 'yyy'; Population: 666));

{$R *.dfm}

// ВАРИАНТ 1 -------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Name: string;
begin
  Name := Edit1.Text;
  for i := Low(CityArray) to High(CityArray) do begin
    if CityArray[i].Name = Name then begin
      Edit2.Text := IntToStr (CityArray[i].Population);
      Exit;
    end;
  end;
  Edit2.Text := 'Нет такого города';
end;

// ВАРИАНТ 2 -------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ListBox1.Items.Clear;
  for i := Low(CityArray) to High(CityArray) do
    ListBox1.Items.Add (CityArray[i].Name);
end;

procedure TForm1.ListBox1Click (Sender: TObject);
begin
  if ListBox1.ItemIndex > -1 then
    Edit2.Text := IntToStr (CityArray[ListBox1.ItemIndex].Population);
end;

Как по ним создать блок-схемы дальше думай сам. Мне, честно, просто неохота.
Сей девайс в помощь: Блок-схемы.zip.