Ejemplo de Registro variante en Pascal (ejercicio 24)

Calcular el area de un cuadrado,circulo o triangulo mediante un registro variante :
PROGRAm registrovariante (input,output);
const

pi=3.1416;
TYPE
tforma=(circulo,cuadrado,triangulo);
tcosa=record

    CASE figura:tforma of
        circulo : (radio:real);
        cuadrado: (ladoc:integer);
        triangulo: (base,altura:real);
end;

VAR

a:tcosa;
opcion:char;
begin

WITH a DO
begin
        write('escriba forma[c][z][t]');
        readln(opcion);
    CASE opcion of
       
        'c': begin
            figura:=circulo;
                   
            writeln('escriba radio');
            readln(radio);
            writeln('Area:');
            writeln(pi*radio*radio);
        end;
        'z': begin
            figura:=cuadrado;
            writeln('escriba lado');
            readln(ladoc);
            writeln('Area:');
            writeln(ladoc*ladoc);
        end;
        't': begin
            figura:=triangulo;
            writeln('escriba base');
            readln(base);
            writeln('escriba altura');
            readln(altura);
            writeln('Area:');
            writeln(((base*altura) / 2 ):5);
        end;
    end;
       
end;           

end.