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

uses crt;
var r,d,l,s:real;
    c:char;
begin
clrscr;
repeat
clrscr;
writeln('Определить пааметры круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности, 4-площади');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Диаметр=',2*r:0:2);
    writeln('Длина окружности=',2*pi*r:0:2);
    writeln('Площадь=',pi*r*r:0:2);
    readln
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Радиус=',d/2:0:2);
    writeln('Длина окружности=',pi*d:0:2);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Радиус=',l/2/pi:0:2);
    writeln('Диаметр=',l/pi:0:2);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    readln
    end;
 '4':begin
     write('Введите площадь s=');
     readln(s);
     writeln('Радиус=',sqrt(s/pi):0:2);
     writeln('Диаметр=',2*sqrt(s/pi):0:2);
     writeln('Длина окружности=',2*pi*sqrt(s/pi):0:2);
     readln
    end;
else exit;
end;
until not(c in ['1'..'4']);
end.

program P;
var
 D,L,S,R:real;
 I:integer;
begin
writeln('insert I');
readln(I);
begin
 case I of
 D: writeln ('D:=2*R');
 L: writeln ('L:=2*3.14*R');
 S: writeln ('S:=3.14*R*R');
  else writln(' results are I=',I);
   readln(I);
 end;
end.