не выдает данные на экран

[margarit0chka]

Delphi 2010
Программа должна выдавать данные на экран и ждать действия от пользователя! но этого не происходит( программа компилируется и сразу завершается(! она точно написана правильно. Что делать?

[ОДИНОЧЕСТВО В СЕТИ]

перед end. написать readln;

[margarit0chka]

это есть! в delphi 7 все работает! а в 2010 нет! что делать?

[Lemo]

Сообщение от margarit0chka

она точно написана правильно. Что делать?

Выложите код!

[margarit0chka]

program Lab1;
{Вариант задания: простой односвязный список.
Дополнительная операция: перенести узлы второго списка
на четные места в первый список}

Type
  Link = ^Node;
  Node = record
    Data: Integer;
    Next: Link;
  end;
  List = Link;

Var
  choice: Integer;
  item: Integer;
  list1, list2: List;
  curList: ^List;

procedure Prompt;
{Приглашение к вводу команды}
begin
  Writeln;
  Writeln('Действие со списком:');
  Writeln('-1 - Выбрать 1-й список;  -2 - Выбрать 2-й список');
  Writeln(' 1 - Добавить в голову;    2 - Добавить в хвост');
  Writeln(' 3 - Удалить первый;       4 - Удалить последний');
  Writeln(' 5 - Слить списки с чередованием узлов');
  Writeln(' 0 - Завершить работу');
  Write('> ');
end;  {Prompt}

procedure InitList(var L: List);
{Инициализация списка}
begin
  L := nil;
end;  {InitList}

procedure FreeList(var L: List);
{Освобождение памяти списка}
var
  p: Link;
begin
  while L <> nil do begin
    p := L;
    L := L^.Next;
    Dispose(p);
  end;
end;  {FreeList}

procedure ShowList(num: Integer; L: List);
begin
  write(num, ')');
  if L = nil then  {Пустой список}
    Write(' ->')
  else begin
    repeat
      Write(' -> ', L^.Data);
      L := L^.Next;
    until L = nil;
  end;
  Writeln;
end;  {ShowList}

procedure ShowLists;
var
  num: Integer;
begin
  if curList^ = list1 then
    num := 1
  else
    num := 2;
  Writeln;
  Writeln('Текущий список: ', num);
  ShowList(1, list1);
  ShowList(2, list2);
end;  {ShowLists}

procedure InHead(var L: List; item: Integer);
{Вставка узла с данными item в голову списка L}
var
  p: Link;
begin
  p := New(Link);
  p^.Data := item;
  p^.Next := L;
  L := p;
end;  {InHead}

procedure InTail(var L: List; item: Integer);
{Вставка узла с данными item в хвост списка L}
var
  p, q: Link;
begin
  p := New(Link);
  p^.Data := item;
  p^.Next := nil;
  if L = nil then
    L := p
  else begin
    q := L;
    while q^.Next <> nil do
      q := q^.Next;
      {Теперь q указывает на последний узел}
    q^.Next := p;
    p^.Next := nil;
  end;
end;  {InTail}

procedure DelHead(var L: List);
{Удаление первого узла списка}
var
  p: Link;
begin
  if L <> nil then begin
    p:= L;
    L := L^.Next;
    Dispose(p);
  end;
end;  {DelHead}

procedure DelTail(var L: List);
{Удаление последнего узла списка}
var
  p: Link;
begin
  if L <> nil then begin
    if L^.Next = nil then begin {Список из 1 узла}
      Dispose(L);
      L := nil;
    end
    else begin {Как минимум 2 узла}
      p := L;
      while p^.Next^.Next <> nil do
        p := p^.Next;
      {Теперь p указывает на предпоследний узел}
      Dispose(p^.Next);
      p^.Next := nil;
    end;
  end;
end;  {DelTail}

procedure MergeLists;
{Переносит узлы из 2-го списка на четные позиции в первом списке.
 Когда один из списков кончается, продолжает до конца другого.}
var
  p1, p2, q1, q2: Link;
begin
  if list1 = nil then begin
    list1 := list2;
    list2 := nil;
  end;
  p1 := list1;
  p2 := list2;
  while list2 <> nil do begin
    if p1^.Next <> nil then begin
      q1 := p1^.Next;
      q2 := p2^.Next;
      p2^.Next := q1;
      p1^.Next := p2;
      p1 := q1;
      list2 := q2;
      p2 := list2;
    end else begin
      p1^.Next := list2;
      list2 := nil;
    end;
  end;
end;  {MergeLists}

begin
  {Основная программа}
  InitList(list1);
  InitList(list2);
  curList := @list1;
  ShowLists;
  repeat
    Prompt;
    readln(choice);
    case choice of
      -1: curList := @list1;
      -2: curList := @list2;
      0: begin
           FreeList(list1);
           FreeList(list2);
           break;
         end;
      1: begin
           Write('Введите добавляемое значение: ');
           Readln(item);
           InHead(curList^, item);
         end;
      2: begin
           Write('Введите добавляемое значение: ');
           Readln(item);
           InTail(curList^, item);
         end;
      3: begin
           DelHead(curList^);
         end;
      4: begin
           DelTail(curList^);
         end;
      5: begin
           MergeLists;
         end;
    else
    end;
    ShowLists;
  until choice = 0;
  FreeList(list1);
  FreeList(list2);
end.

Даже элементарный код не работает! это что то с Delphi(((

[Stilet]

Все там работает, ты просто забываешь что Делфи это не паскаль, и в его консольной программе нужно по другому начало писать.
Допиши к своему коду как минимум

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Сверху и радуйся.

Да и учти - русские буквы конслоль не любит, так что русские слова транслитом замени.

[margarit0chka]

Блин! с этой штучкой тоже не работает(((((

[lennon]

скакой такое "штучкой"?

Сообщение от Stilet

{$APPTYPE CONSOLE}

омг ) а чо оно должно работать? это какбЭ коментарий )))

ненадо блинкать, а создайте консольный тип проекта
File->CloseAll
File->New Project