Запись с вариантами

[andrei_belko]

для турбо паскаля.
помогите код исправить

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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[andrei_belko]

помогите плиз, самому не получается исправить

[andrei_belko]

ой я глупость сделал вот условие по каторому я делал...
Задана одна из геометрических фигур: прямоугольник, треугольник или круг. Фигуры задаются разными способами:
прямоугольник – двумя сторонами, треугольник – тремя сторонами, круг – радиусом. В зависимости от того, какая
фигура вводится, вывести определѐнную информацию о ней: для круга – площадь, для прямоугольника – площадь, а для
треугольника – периметр.