Создать меню, которое позволяет пользователю выбрать фигуру и рассчитывает площадь её поверхности - Free Pascal

Формулировка задачи:

Помогите пожалуйста! Хватит только функций для пары фигур, чтобы наглядно было понятно, что делать. Надо написать программу где нужно выбрать фигуру, и в ней будут функции для нахождения площади к каждой фигуре Вот задание: Создать меню, которое позволяет пользователю выбрать фигуру и рассчитывает площадь его поверхности. Написать функции, которые определяют площадь поверхности:  шара;  параллелепипеда;  конуса;  пирамиды;  цилиндра;  усеченного конуса;

Решение задачи: «Создать меню, которое позволяет пользователю выбрать фигуру и рассчитывает площадь её поверхности»

Листинг программы

uses crt;
function shar(r:real):real;
begin
shar:=4*pi*r*r;
end;
function parall(a,b,c:real):real;
begin
parall:=a*b*c;
end;
{так же остальные}
var w:char;
    r,a,b,c,s:real;{и другие переменные, необходимые для подсчета}
begin
clrscr;
repeat
clrscr;
writeln('Определить площадь поверхности');
writeln('1-шара');
writeln('2-параллелепипеда');
writeln('3-конуса');
writeln('4-пирамиды');
writeln('5-цилиндра');
writeln('6-усеченного конуса');
writeln('другое - выход');
readln(w);
case w of
'1':begin
    clrscr;
    write('Введите радиус r=');
    readln(r);
    writeln('Площадь=',shar(r):0:2);
    write('Press Enter');
    readln;
    end;
'2':begin
    clrscr;
    writeln('Введите длины ребер a,b,c');
    readln(a,b,c);
    writeln('Площадь=',parall(a,b,c):0:2);
    write('Press Enter');
    readln;
    end;
{так же 3,4,5,6}
end;
until not(w in ['1'..'6']);
end.

Объяснение кода листинга программы

Программа на языке Free Pascal.
Создана функция shar(r:real), которая вычисляет площадь поверхности шара, по формуле S = 4πr*r.
Создана функция parall(a,b,c:real), которая вычисляет площадь параллелепипеда, по формуле S = abc.
Создана переменная w типа char для получения выбора пользователя.
Создано несколько переменных типа real (r, a, b, c, s и другие) для ввода параметров фигур.
В основном цикле программы пользователю предлагается выбрать фигуру и ввести необходимые параметры.
Если выбрана фигура шар, то пользователю предлагается ввести радиус, после чего вычисляется и выводится площадь поверхности шара.
Если выбрана фигура параллелепипед, то пользователю предлагается ввести длины ребер, после чего вычисляется и выводится площадь поверхности параллелепипеда.
Цикл продолжается до тех пор, пока пользователь не выберет фигуру другое или не введет некорректные данные.
В конце программы выполняется проверка на выход из цикла при неправильном вводе.