Площадь и объем параллелепипеда с помощью меню CASE

Найти площадь и объем параллелепипеда с помощью меню CASE

program ololo;
uses crt;
var
   w:integer;
   a,s,b,c,v:real;
begin
repeat
Writeln('');
Writeln('');
Writeln('Ввод значений сторон - 1');
Writeln('Вычислить объем - 2');
Writeln('Вычислить площадь - 3');
Writeln('Завершить программу -4');
Writeln('_________________________');
Readln(w);
case w of
1:begin
clrscr;
  Writeln('Ввод стороны A');
  Readln(a);
  Writeln('Ввод стороны B');
  Readln(b);
  Writeln('Ввод сторны C');
  Readln(c);
  end;
 
2:begin
clrscr;
  v:=a*b*c;
  Writeln('Объем фигуры равен =',v);
  end;
 
3:begin
clrscr;
   s:=2*((a*b)+(b*c)+(a*c));
   Writeln('Площадь фигуры равна =',s);
  end;
  end;
until w=4;
end.