Вычислить значение всех элементов треугольника

uses crt;
var a,h,s,rv,ro:real;
    w:char;
begin
repeat
clrscr;
writeln('Укажите номер известного элемента');
writeln('1 - сторона');
writeln('2 - высота');
writeln('3 - площадь');
writeln('4 - радиус вписанной окружности');
writeln('5 - радиус описанной окружности');
writeln('Другое - выход');
readln(w);
case w of
'1':begin
    repeat
    write(':Введите длину стороны a>0 a=');
    readln(a);
    until a>0;
    h:=sqrt(3)*a/2;
    s:=sqrt(3)*sqr(a)/4;
    rv:=sqrt(3)*a/6;
    ro:=2*rv;
    end;
'2':begin
    repeat
    write('Введите высоту h>0 h=');
    readln(h);
    until h>0;
    a:=2*h/sqrt(3);
    s:=sqrt(3)*sqr(a)/4;
    rv:=sqrt(3)*a/6;
    ro:=2*rv;
    end;
'3':begin
    repeat
    write('Введите площадь s>0 s=');
    readln(s);
    until s>0;
    a:=sqrt(4*s/sqrt(3));
    h:=sqrt(3)*a/2;
    rv:=sqrt(3)*a/6;
    ro:=2*rv;
    end;
'4':begin
    repeat
    write('Введите радиус вписанной окружности rv>0 rv=');
    readln(rv);
    until rv>0;
    a:=6*rv/sqrt(3);
    h:=sqrt(3)*a/2;
    s:=sqrt(3)*sqr(a)/4;
    ro:=2*rv;
    end;
'5':begin
    repeat
    write('Введите радиус описанной окружности ro>0 ro=');
    readln(ro);
    until ro>0;
    a:=3*ro/sqrt(3);
    h:=sqrt(3)*a/2;
    s:=sqrt(3)*sqr(a)/4;
    rv:=sqrt(3)*a/6;
    end;
end;
clrscr;
writeln('Сторона=',a:0:2);
writeln('Высота=',h:0:2);
writeln('Площадь=',s:0:2);
writeln('Радиус вписанной окружности=',rv:0:2);
writeln('Радиус описанной окружности=',ro:0:2);
writeln('Нажмите Enter');
readln;
until not(w in ['1'..'5'])
end.