SISTEMA

INICIO DE PROGRAMAÇÃO
   THelloWorld = class
      procedure Put;PROGRAMAÇÃO.gram ObjectPascalExample;
type
   end;
 
procedure THelloWorld.Put;
begin
   Writeln('SUPERMERCADOS AJÁX!');
end;
 
var
   HelloWorld: THelloWorld;           { isso é um ponteiro implícito }
 
begin
   HelloWorld := THelloWorld.Create;  { construtor retorna ponteiro }
   HelloWorld.Put;                        
   HelloWorld.Free;                   { esta linha dereferencia o ponteiro }
end

var
cliente:char;
begin




var
produto:char;
begin


var
funcionários:char;
begin


var
fornecedores:char;
begin


var
formulários:char;
begin


var
cadastros:char;
begin


var
sistema:char;
begin