пишу

procedure SrArP( const ar:array of real; out sr:real);

Возникает ошибка... откуда
компилятор FPC, но на TP ошибка таже...

вся, вроде простая, процедура //могут быть еще ошибки

 procedure SrArP( const ar:array of real; out sr:real); 
var 
	i, sum:real;
begin
	for i:=Low(ar) to High(ar) do if Positive(ar[i]) then sum:=sum+ar[i];
	s:=sum/(High(ar) - Low(ar));
end;

)

заранее благодарен.

Во-первых, если FPC, то в каком режиме компилируешь? В ObjFPC/Delphi выдает только ту ошибку, что i должно быть целым числом, чтоб его использовать в качестве переменной цикла...

В режиме совместимости с TP - все правильно, нет в Турбо Паскале слова Out, компилятор считает это идентификатором, и естественно ждет определения его типа, после двоеточия, а двоеточия-то и нет...

в диалекте FPC, в нем разве нет Out?
ObjFPC действительно работает... конечно если сделать целым числом
а я думал...