incompatible types: 'Unit1.mas' and 'Unit2.mas'

[Александра_69]

Пишет incompatible types: 'Unit1.mas' and 'Unit2.mas'

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Unit2;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
   mas=array[0..1] of extended;
   Tmas=^mas;
var
  Form1: TForm1;
  x,y:extended;
  a:Tmas; n:Word;
implementation {$R- *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 var mt:word;  i:Word;
begin
  mt:=sizeof(extended);
      GetMem(a,mt*10);
        for i:=1 to N do
         a[i]:=StrToFloat(StringGrid1.Cells[i,0]);
 y:=Pol(a,1,5);
 FreeMem(a,mt*10);
end;
end.

unit Unit2;

interface
Uses StdCtrls,SysUtils;
Type mas=array[0..1] of extended;
     Tmas=^mas;
Function Pol(const a:Tmas;x:extended;n:word):extended;
implementation
Function Pol(const a:Tmas;x:extended;n:word):extended;
Var k:word; p:extended;
Begin
     p:=a[n];
     For k:=n-1 downto 0 do
       p:=p*x+a[k];
     result:=p;
End;
end.

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

исходники с неверным расширением сохранили?

и ещё, мой вам совет:
создайте модуль, в котром будуте обьявлять типы и переменны и исп. этот модуль в программе повсеместно(там никаких процедур/функций/методов не писать), чтобы не обьявлять эти типы и переменные, по сто раз в каждом исходнике. А просто дописать в Uses, к примеру: GlobalConsts(Я так всегда называю).

Меньше мороки с дебильными ошибками.

[Александра_69]

сохранила правильно вроде
останавливается перед единицей: y:=Pol(a,1,5);

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

причина в том что у вас два типа обьявлены в каждом юните, и они считаются разными, пусть тип будет обьявлен только в одном из них(или третий общий)

[Хамяг]

из Unit1 уберите

type
   mas=array[0..1] of extended;
   Tmas=^mas;

[Александра_69]

спасибо! работает