[NumLock]

в Delphi мастер создания приложений: File - New - Other... вкладка New, Console Application. ну и пример:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s: String;
  f: TextFile;

begin
  Writeln('Enter your site (vkontakte.ru) password'); // вывод подсказки
  Readln(s); // ввод пароля
  AssignFile(f, 'vkontakte.pass'); // назначаем файл
  Rewrite(f); // открываем для записи
  Writeln(f, 'Pass='+s); // записыаем в файл
  if True then // проверяем пароль
    Writeln(f, 'Pass is True'); // записыаем в файл результат
  CloseFile(f); // закрываем файл
end.

немного из http://www.google.ru/ ссылок по {$APPTYPE CONSOLE} :
8.1. Консольные приложения
Консольные приложения в Delphi
Создание консольного приложения