Вопросы к экзамену с ответами и демо-программами на Паскале / ex26

program GalkaVV;
uses AbsObj,crt;
type

TPredMark=record
Pred:string;
Mark:Byte;
end;

PParamItem=^TParamItem;
TParamItem=record
Name,SurName:string[20];
Year,Group:word;
Marks: array [1..10] of TPredMark;
end;

PParamFifo=^TParamFifo;
TParamFifo=object (TFifo)
{ private
AList,BList:PListItem;
public
constructor Init;
destructor Done;
procedure Put(Element: pointer);
function Get:pointer;}
procedure PutStudent(AItem:TParamItem);
procedure GetStudent(var AItem:TParamItem);
procedure FreeItem(AItem: pointer); virtual;
end;

procedure TParamFifo.FreeItem(AItem: pointer);
var
Tmp:PParamItem;
begin
Tmp:=AItem;
if Tmp<>nil then Dispose(Tmp);
end;

procedure TParamFifo.PutStudent(AItem:TParamItem);
var
Tmp:PParamItem;
i:byte;
begin
New(Tmp);
Tmp^:=AItem;
Put(Tmp);
end;

procedure TParamFifo.GetStudent(var AItem:TParamItem);
var
Tmp:PParamItem;
begin
if AList<>nil then
begin
if AList^.Data<>nil then
begin
Tmp:=AList^.Data;
AItem:=Tmp^;
end;
FreeItem(Get);
end;
end;

var
List:PParamFifo;
T:TParamItem;
begin

New(List,Init);
with List^ do
begin
PutStudent(T);
GetStudent(T);
end;
Dispose(List,Done);
end.