Массив из классов

[DeMoHoJIoG]

Никак не пойму что здесь не так.
Код Pascal

type
CL= class
private
CName:string;
CG1,CG2,CG3:byte;
 
public
constructor (G1,G2,G3:byte);
begin
CG1:=G1;
CG2:=G2;
CG3:=G3;
end;
end;
 
var
ID:array [0..3] of CL;
IDT:CL:=new CL;
I,U1,u2,u3:byte;
begin
for I:=1 to 3 do
begin
write(I,' КЛАСС');
writeln;
read(U1);
read(U2);
read(U3);//тут типа заполняю классы в массиве руками
IDT.CG1:=U1;
IDT.CG2:=U2;
IDT.CG3:=U3;
ID[i]:=IDT;// толи тут неприсваевается
end;
IDT.CG1:=0;
IDT.CG2:=0; // зануляем временный класс
IDT.CG3:=0;
for I:=1 to 3 do
begin
writeln(I,' КЛАСС');
IDT:=ID[i]; //толи тут
writeln(IDT.CG1,IDT.CG2,IDT.CG3);
end;
end.

может в объявлении класса косяк или ещё где?

[Stilet]

Речь действительно о Паскале или всетки о Делфи?

[whatever]

В паскале, кажется, классов нет, но есть объекты.
Никогда в паскале этого не делал, но вот так, вроде бы, работает:

//проверял на Free Pascal
uses
  crt;
type
CL=object
private
CName:string;
CG1,CG2,CG3:byte;
public
constructor create(G1,G2,G3:byte);
end;
constructor cl.create(G1,G2,G3:byte);
begin
CG1:=G1;
CG2:=G2;
CG3:=G3;
//end;
end;

var
ID:array [0..3] of CL;
IDT:CL;//:=new CL;
I,U1,u2,u3:byte;
begin
clrscr;
for I:=1 to 3 do
begin
  write(I,' КЛАСС');
  writeln;
  read(U1);
  read(U2);
  read(U3);//тут типа заполняю классы в массиве руками
{IDT.CG1:=U1;
IDT.CG2:=U2;
IDT.CG3:=U3;}
  ID[i].create(u1,u2,u3);  //не знаю, как в паскале, но в дэлфи такая строка может доставить очень 
дофига проблем, поэтому если пишешь в дэлфи, то смотри, как написано в следующем коде
//  ID[i]:=IDT;// толи тут неприсваевается
end;
{IDT.CG1:=0;
IDT.CG2:=0; // зануляем временный класс
IDT.CG3:=0;}
writeln('----------------------');
for I:=1 to 3 do
  begin
  writeln(I,' КЛАСС');
//  IDT:=ID[i]; //толи тут
  writeln(ID[i].CG1,ID[i].CG2,ID[i].CG3);
  end;
  readln;
end.

Зачем нужен IDT так и не понял.

В Дэлфи вот так:

type
CL= class
private
  CName:string;
  CG1,CG2,CG3:byte;
public
  constructor create(G1,G2,G3:byte);
end;
constructor CL.create(G1,G2,G3:byte);
begin
  CG1:=G1;
  CG2:=G2;
  CG3:=G3;
end;

var
  ID:array [0..3] of CL;
//  IDT:CL=new CL; //вся строка - бред
  I,U1,u2,u3:byte;
begin
  for I:=1 to 3 do
    begin
      write(I,' КЛАСС');
      writeln;
      read(U1);
      read(U2);
      read(U3);//тут типа заполняю классы в массиве руками
{      IDT.CG1:=U1;
      IDT.CG2:=U2;
      IDT.CG3:=U3;   }
      ID[i]:=CL.create(u1,u2,u3);// толи тут неприсваевается
    end;
{  IDT.CG1:=0;
  IDT.CG2:=0; // зануляем временный класс
  IDT.CG3:=0;}
  for I:=1 to 3 do
    begin
      writeln(I,' КЛАСС');
//      IDT:=ID[i]; //толи тут
      writeln(ID[i].CG1,ID[i].CG2,ID[i].CG3);
    end;
  readln
end.