Процедура с тремя параметрами, которая вызывается из дополнительного модуля

[vedro-compota]

Подскажите, товарищи - где у меня ошибка. какой-то конфликт типов....много ошибок. Выручите !
Основной модуль :

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
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type         
  pelement= ^telement;                 
  Telement= record
             infa: char;
             ukazatel:pelement;
            end;
var    f1,f2: textfile;
     simvol: char;
     a,b: string;
     uk,p,uk1: pelement;

begin
  a:='c:\files\f1.txt';
  b:= 'c:\files\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.

Спасайте. (прикладываю неработающий архив. там то конфликт типов, то тип не определён...)

[vedro-compota]

как избавиться хотя б от несоответствия типа? пожалуйста))

[Человек_Борща]

Несовсем понятно что делает ваша программа

[RAZOR3]

а если вот так:

procedure TForm1.Button1Click(Sender: TObject);
var    f1,f2: textfile;
     simvol: char;
     a,b: string;
     uk,p,uk1: pelement;
begin
  a:='c:\files\f1.txt';
  b:= 'c:\files\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;

[Stilet]

vedro-compota

Ты в unit ochered; описал:

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

Теперь этот тип будет доступен и в других модулях, где используется этот, посему зачем ты в unit Unit1 переопределил

pelement= ^telement;
Telement= record
infa: char;
ukazatelelement;
end;

Вот тут то и может выпадать несоответствие типов (а может и прокатить), но в целом не стоит так делать. Убери этот тип из формы.

[vedro-compota]

Просто оставил глобальный тип в дополнительном модуле. Как вы и посоветовали ) Спасибо ))
----------------------------------
а так,вообще, (спрашивал Человек_Борща0))) программа моя переносит все знаки препинания в конец строки .