Вроде бы аналогичная вложенной процедура не работает при переносе в дополнительный модуль!

[vedro-compota]

Здравствуйте ! 0)))Снова возникла загвоздка с подключением модуля , вернее модуль , вроде подключен, но процедура, расположенная в нём не работает.
Программа призвана переносить все знаки препинания, встретившиеся в строке в конец этой самой строки.
Вот такой вариант работает:
Основной (и единственный ) модуль:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls , ochered ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public


  end;
  type
  pelement= ^telement;
  Telement= record
             infa: char;
             ukazatel:pelement;
            end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var    f1,f2: textfile;
     simvol: char;
     a,b: string;
     uk,uk1,p: pelement;

begin
  a:='f1.txt';
  b:='f2.txt';
  AssignFile(f1,a);
  AssignFile(f2,b);
  reset(f1);
  rewrite(f2);
  uk:=nil;
  uk1:=nil;
  while eof(f1)=false do
  begin
    read(f1,simvol);
    if simvol in ['.',',',';','-','!','?',':'] then
    begin
    // fgh(uk1,uk,simvol); // - процедура, призванная заменить всё в этих операторных скобках, но временно заблокированная))
      new(p);
      if uk<>nil  then
      uk^.ukazatel:=p
      else uk1:=p;
      p^.infa:=simvol;  // сохранем знаки
      uk:=p;
    end
    else
      write(f2,simvol);
    if eoln(f1)=true then
    begin
      uk:=nil; // обрываем список
      while uk1<>nil do  // выводим знаки
      begin
        write(f2,uk1^.infa);
        uk1:=uk1^.ukazatel;
      end;
    end;
  end;
  CloseFile(f1);
  CloseFile(f2);

end;

end.

----------------------------------------
Потом я переношу процедуру, которая создаёт очередь из знаков препинания ( добавляю в начало очереди, запоминаю указатель на первый элемент)
Теперь основной модуль выглядит так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls , ochered ;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public


  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var    f1,f2: textfile;
     simvol: char;
     a,b: string;
     uk,uk1,p: pelement;

begin
  a:='f1.txt';
  b:='f2.txt';
  AssignFile(f1,a);
  AssignFile(f2,b);
  reset(f1);
  rewrite(f2);
  uk:=nil;
  uk1:=nil;
  while eof(f1)=false do
  begin
    read(f1,simvol);
    if simvol in ['.',',',';','-','!','?',':'] then
    begin
     fgh(uk1,uk,simvol);
      {new(p);
      if uk<>nil  then
      uk^.ukazatel:=p
      else uk1:=p;
      p^.infa:=simvol;  // сохранем знаки
      uk:=p; }
    end
    else
      write(f2,simvol);
    if eoln(f1)=true then
    begin
      uk:=nil; // обрываем список
      while uk1<>nil do  // выводим знаки
      begin
        write(f2,uk1^.infa);
        uk1:=uk1^.ukazatel;
      end;
    end;
  end;
  CloseFile(f1);
  CloseFile(f2);

end;

end.

Дополнительный ( процедурный) так :

unit ochered;

interface
type
  pelement= ^telement;
  Telement= record
             infa: char;
             ukazatel:pelement;
            end;
procedure fgh(uk1,uk: pelement; simvol: char  );

implementation


procedure fgh(uk1,uk: pelement; simvol: char  );
var p:pelement;
begin
      new(p);
      if uk<>nil  then
      uk^.ukazatel:=p
      else uk1:=p;
      p^.infa:=simvol;  // сохранем знаки
      uk:=p;
end;

end.

Не пойму в чём разница. Подскажите.
(программа читает данные из f1.txt и записыет результат в f2.txt )
--------------------
(прикладываю работающий и не работающий архивы)

[vedro-compota]

я кажись по ссылке значения в процедуру-то передал......ээээээ. сейчас посмотрим....
-----------------------------------
всё. работает ! спасибо за моральную поддержку ( что , знаете, не маловажно 0)))