Не запускается программа

[(Нафаня)]

При запуске вылетает

type
  List=^Node;
  Node=record
         inf:Integer;
         flag:Boolean;
         next:List;
       end;

procedure list_Push(var l: List; x: Integer); 
var
  p: List;
begin
  new(p);
  p^.inf:=x;
  p^.flag:=false;
  p^.next:=l;
  l := p;
end;

function list_Pop(var l: List): Integer; {Âûòàñêèâàåì èç ñïèñêè}
var
  p:List;
begin
  p:= l;
  l:= l^.next;
  list_Pop:=p^.inf;
  p^.next:=nil;
  dispose(p);
end;

function read_List(fName:string):List;  
var
  l:List;
  f:Text;
  x:Integer;
begin
  assign(f,fName);
  reset(f);
  l:=nil;
  while not eof(f) do
  begin
    read(f,x);
    list_Push(l,x);
  end;
  closeFile(f);
  read_List:=l;
end;

function Kolvo(l:list;v:integer):integer; 
begin Result:=0;
 while (l<>nil) do
   begin
     if(l^.inf=v) then
       Result:=Result+1;
     l:=l^.next;
   end;
end;

function Re_List(l1,l2:List):List;  
var
  h,l,d:List;
begin
 h:=nil;
 {l:=nil;}
 while d<>nil do
   begin
     if (Kolvo(l2,l1^.inf)=0) and (Kolvo(l1,l1^.inf)=1) then
       begin
         new(l);
         l^.inf:=l1^.inf;
         if h<>nil then
           h^.next:=l
         else
           h:=l;
        if Result=nil then
          Result:=h;
       end;
   end;
end;
var
  l1,l2:List;
begin
  l1:=read_List('input1.txt');
  l2:=read_List('input2.txt');
  Re_List(l1,l2);
  while l1<>nil do
    list_Pop(l1);
  while l2 <> nil do
    list_Pop(l2);
end.

[studen]

Давно в делфи не писал, но возможно, надо писать AssignFile вместо Assign. Можно поподробнее про ошибку? Компилятор ее выдает или же она Runtime, т.е. во времени выполнения программы? В первом случае смотрите строку с ошибкой и текст самой ошибки, во втором - поставьте на каждой строке точки останова и ищите место ошибки прямо во время выполнения программы. Ну и пишите сюда все об этой ошибке.

[(Нафаня)]

Ошибка такая [Warning] Project3.dpr(74): Variable 'd' might not have been initialized. Какое-то d не инициализировано? Я правильно поняла?

[kventin_zhuk]

мне кажется, дело в этом:
reset(f); - открывает существующий файл, а файл у вас, по всей видимости, не создан. Чтобы создать файл, нужно rewrite использовать. Перед тем, как считывать инфу из файла, нужно подготовить этот файл(создать, записать инфу), а в вашей проге вы сразу считываете.

[(Нафаня)]

То же самое выдает+ выделил строку: while not eof(f) do

[Abstraction]

Ошибка такая [Warning] Project3.dpr(74): Variable 'd' might not have been initialized. Какое-то d не инициализировано? Я правильно поняла?

Предупреждение (файл Project3.dpr, строка 74): может получиться так, что переменная d окажется не инициализированной.
Что-то странное, ибо единственное место, где в коде встречается d - это строка 65:

 while d<>nil do

Гм. Если это единственное место, то d не меняется в цикле. Он либо не отработает ни разу, либо окажется бесконечным.

Вообще, "не запускается" и "при запуске вылетает" - вещи немного разные. Если программа запускается, то используйте отладчик либо отладочную печать для выявления точки падения. Лично мне подозрительно разыменование указателя l1 в Re_list: если он nil, программа рухнет.

[Stilet]

Ошибка такая [Warning]

Warning это не ошибка.

То же самое выдает+ выделил строку: while not eof(f) do

Что пишет?

[(Нафаня)]

Ладно, спасибо всем=) потом с ней разберусь=)

[Izobara]

А что разбираться? Предупредило об возможной проблеме. Программа и должна вылетать - пишет-то в файл. И сразу закрывается. Я не вникал, может и в логике проблемы, но это другой вопрос. Проверьте наличие входного файла и все ок. Потом проверьте результат в оутпуте.

[Izobara]

А предупреждает о том, что переменная d может быть неопределенной. И тогда цикл будет вечным.