OOP in Pascal

[Light Kudo]

Buongiorno; Avrei un problema nella compilazione del seguente programma, scritto in Pascal. Esso si occupa di leggere il nome, il cognome, l'età e il voto di uno studente, che poi saranno passati, con diverse procedure, a una classe (scritta in una unit). In seguito, con un'altra procedura, il programma ristampa i dati inseriti dall'utente. Il tutto risulta insensato, ma mi servirebbe per colmare diversi dubbi e prendere pratica con l'argomento. Grazie per l'aiuto.

Unit:

Codice: Seleziona tutto

unit registro;

interface

uses crt;

type
Tstudenti = object
procedure nomeecogno(var a,b:String);
procedure anzianita(var c:integer);
procedure rendimento(var d:real);
procedure visualizza;

private
nome:String[30];
cognome:String[30];
eta:integer;
voto:real;

end;

implementation

procedure Tstudenti.nomeecogno(var a,b:String);
begin
     a:=nome;
     b:=cognome;
end;
procedure Tstudenti.anzianita(var c:integer);
begin
     eta:=c;
end;
procedure Tstudenti.rendimento(var d:real);
begin
     voto:=d;
end;
procedure Tstudenti.visualizza;
begin
     write(nome, '  ');
     write(cognome, '  ');
     write(eta, '  ');
     write(voto, '  ');
end;
end.

Programma:

Codice: Seleziona tutto

program classe;
uses crt,registro;
var g:Tstudenti;
    nom,cogn:String[30];
    e:integer;
    vot:real;
begin
     clrscr;
       writeln('inserisci il nome'),
       read(nom);
         writeln('inserisci il cognome');
         read(cogn);
         writeln('inserisci l''età');
         read(e);
     writeln('inserisci il voto');
     read(vot);
       g.nomeecogno(nom,cogn);
         g.anzianita(e);
           g.rendimento(vot);
             g.visualizza;
repeat until keypressed;
end.