Как подключить модуль???

[diliana]

Здравствуйте

Я написала консольное приложение и все работало без проблем, но препод сказал, чтоб я попробовала сделать это же, но с модулем, и я все сделала вроде как положено, но у меня почему-то не компилируется и выходит сообщение

[Pascal Error] LabaConsolModul.dpr(31): E2033 Types of actual and formal var parameters must be identical
[Pascal Error] LabaConsolModul.dpr(32): E2033 Types of actual and formal var parameters must be identical
[Pascal Error] LabaConsolModul.dpr(33): E2010 Incompatible types: 'UnitA.plist' and 'LabaConsolModul.plist

Ну что же делать, я в отчаянии, все что знала я перепробовала, подскажите пожалуста, как это исправить! Очень вас прошу.

Вот главная программа

program LabaConsolModul;
{$APPTYPE CONSOLE}

uses unitA;

Type
  plist = ^tl;
    tl = record
      next : plist;
      data: integer;
  end;

Var
  Head,cur: plist;
  key: byte;
  a:integer;

Begin
Head:=nil; cur:=nil;
Repeat
 Writeln ('===========================');
 Writeln (' PROGRAM LabaConsolModul');
 Writeln ('===========================');
 Writeln ('1: Add element');
 Writeln ('2: Delete element');
 Writeln ('3: Scan');
 Writeln ('0: Exit');
 Writeln ('===========================');
 Readln (key);
 case key of
  1: AddList(cur,Head);
  2: DelList(Head);
  3: ScanList(cur,Head);
 end;
until key =0;
End.

А вот этот ненавистный модуль

unit UnitA;

interface
Type
  plist = ^tl;
    tl = record
      next : plist;
      data: integer;
  end;

Var
  Head,cur: plist;


procedure ScanList(curA ,HeadA: plist);
procedure AddList(var curA,HeadA: plist);
procedure DelList(var HeadA: plist);

implementation

procedure ScanList(curA ,HeadA: plist);
begin
  writeln ('Prosmotr spiska');
  if HeadA = nil then writeln ('Pustoy spisok')
  else
  begin
    curA := HeadA;
    while curA <> nil do
    begin
      write(curA^.Data, ' ');
      curA := curA^.Next
    end;
  writeln;
  end;
  writeln;
end;

procedure AddList(var curA,HeadA: plist);
var
  temp:plist;
  x: integer;
begin
  Write ('Dobavit element: ');
  Readln (x);
  New(temp); //добавл.в конец
  temp^.Data := x;
  temp^.Next := nil;
  if HeadA = nil then HeadA := temp
    else  curA^.next := temp;
  curA := temp;
  Writeln;
end;

procedure DelList(var HeadA: plist);
var
  temp:plist;
begin
  writeln ('Udalit element');
  if HeadA = nil then writeln ('Pustoy spisok')
  else  // удаление с начала списка
  begin
    temp:= HeadA;
    HeadA := HeadA^.Next;
    Writeln ('Udalen ',temp.data);
    dispose(temp);
   end;
end;

end.

[Evgeniy26]

Возможно из-за того, что в обоих модулях создан тип plist. Удалите в LabaConsolModul тип plist

[Пепел Феникса]

program LabaConsolModul;
{$APPTYPE CONSOLE}

uses
  unit1;

Var
  Head,cur: plist;
  key: byte;
  a:integer;

Begin
Head:=nil; cur:=nil;
Repeat
 Writeln ('===========================');
 Writeln (' PROGRAM LabaConsolModul');
 Writeln ('===========================');
 Writeln ('1: Add element');
 Writeln ('2: Delete element');
 Writeln ('3: Scan');
 Writeln ('0: Exit');
 Writeln ('===========================');
 Readln (key);
 case key of
  1: AddList(cur,Head);
  2: DelList(Head);
  3: ScanList(cur,Head);
 end;
until key =0;
End.

[diliana]

Пепел Феникса
спасибо, я счастлива!!!!