[DWARF]

Есть 2 модуля Unit1 и projects

Листинг Unit1

Код:

type
 project=array of record
   name:string[50];
   en,me,el:byte;
   op:string[100];
   end;
 n_a=project;

procedure Rozdil(nomer:string); 
begin
 SetLength(n_a,n1);
 n_a:=na();
end;

Листинг модуля projects

Код:

unit projects;

interface

const
 n1=7;

type
 project=array of record
   name:string[50];
   en,me,el:byte;
   op:string[100];
   end;

 n_a=project;

 function na():n_a;

implementation

uses Unit1, Dialogs, SysUtils;

function na():n_a; 
var i:byte;
begin
try
 SetLength(Result,n1);
 for i:=0 to n1-1 do result[i].en:=i;
except
 ShowMessage('Ошибка в блоке');
 Abort;
 end;
end;

end.

В строке SetLength(n_a,n1); "ошибка "(" expected but "," found"
Почему?

[Страдалецъ]

Потому что n_a у вас тип, а не пременная.

[DWARF]

Если в Unit1 добавить var n_a: project;
вместо type n_a=project;
то в строке n_a:=na(); возникает ошибка "Incopatible types"