[angvelem]

Ну наверное, оптимально будет использовать CheckBox. "Кидаете" на форму данный контрол и в процедуре/функции опрашиваете его:

Код:

  if CheckBox1.Checked then
  begin
    // 1 вариант решения
  end
  else
  begin
    // 2 вариант решения
  end;

Обязательно консольное?

Код:

var
  St : String;
begin
  ReadLn(St);
  if (St = 'y') or (St = 'Y') then
  begin
    // 1 вариант решения
  end
  else
  begin
    // 2 вариант решения
  end;
  ...
end;