Найти площадь круга и периметр треугольника

program v9;
Type figyri=(priamoygolnik,treygolnik,kryg);
Isfigyri=record
storona1:real;
case v:figyri of
priamoygolnik:(storona2:real);
treygolnik:(storona3:real;storona4:real);
kryg:(radiys:real);
end;
const n=10;
var Isfiguri:array [1..n] of figyri;
 i:1..n;
chose:byte;
Procedure vvod;
Begin
writeln('Vvedite dannie o figyrah',i);
write('1-priamoygolnik,2-tregolnik,3-krug');
readln(chose);
Case chose of
1:Isfigyri[i].v:=priamougolnik;
2:Isfigyri[i].v:=treygolnik;
3:Isfigyre[i] v:=kryg;
end;
with Isfigyi [i] do
begin
write ('storona1');
readln ('storona1');
case v of
priamoygolnik:begin
write(storona2);
readln(storona2);
end;
treygolnik:begin
write('storona3');
readln('storona3');
write('storona4');
readln('storona4');
end;
kryg:begin
write('radiys');
readln('radius');
end;
end;
end;
procedure vyvod;
begin
with Isfigyri [i] do
begin
writeln('storona1',storona1);
case v of
priamoygolnik:
writeln('storona2',storona2);
treygolnik:begin
writeln('storona3',storona3);
writeln('storona4',storona4);
kryg:begin
writeln('radius',radius);
end;
end;
end;
end.