Подскажите где в программе ошибка

[*13*]

кароче, нужно создать класс. одно из полей класса, полюбому массив из 5 элементов. ну ввёл я его отдельно как тип. но он выводит ошибку. как решить проблему? заранее спасиб.

Код: Выделить всё

interface
uses SysUtils;
type ozen=array[0..4] of real;
type TStudent=class
private
Ffio:string;
         Fgroup:integer;
         Fozenka:ozen;
         function GetFio:string;
         procedure SetFio(aFio:string);
         function Getgroup:integer;
         procedure Setgroup(agroup:integer);
         function GetOzenka(var aOzenka:ozen):ozen;
         procedure SetOzenka(aOzenka:ozen);
public 
property Fio:string read GetFio write SetFio;
         property Group:integer read GetGroup write SetGroup;
        [color=red]property Ozenka:ozen read GetOzenka write[/color][b][color=blue]![/b][/color][color=red] SetOzenka;[/color]
         constructor create(aFio:string; aGroup:integer; aOzenka:ozen);
         function  Print:string;
         end;

implementation

function TStudent.GetOzenka(var aOzenka:ozen):ozen;
var i:byte;
begin
for i:=0 to 4 Do
aOzenka[i]:=FOzenka[i];
end;

Код: Выделить всё

[Error] Unit2.pas(18): Incompatible types
[Fatal Error] Unit1.pas(7): Could not compile used unit 'Unit2.pas'

куда ведет ошибка- синий восклицательный знак.

[Replicator]

Может, я чего-то не помню, но
function GetOzenka(var aOzenka: ozen): ozen;
стоило бы написать так:
function GetOzenka: ozen;

Код: Выделить всё

function TStudent.GetOzenka: ozen;
begin
  Result := Fozenka;
end;


[*13*]

Может, я чего-то не помню, но
function GetOzenka(var aOzenka:ozen):ozen;
стоило бы написать так:
function GetOzenka: ozen;

Код: Выделить всё

function TStudent.GetOzenka(var aOzenka:ozen):ozen;
var i:byte;
begin
  Result := Fozenka;
end;


таки да. дал дубу. спасибо ))

[Attid]

*13*
названия лучне не транслитом давать, а на английском
будет читабельнее, это так к слову =)
правило хорошего тона.
и форматирование тоже =)
и код оформлять тегом код а не квоте.

[Replicator]

Я и сам тормознул в примере. Счас исправил.