Изменить код используя процедуры - Turbo Pascal

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

Здравствуйте, нужно изменить код используя процедуры, помогите пожалуйста

uses crt;
var a,b,c: integer;
    s,d: real;
begin
 clrscr;
 write('введите 2 стороны и угол между ними: ');
 readln(a,b,c);
 d:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(c));
 s:=0.5*a*b*sin(c);
 writeln('d= ',d:10:1);
 writeln('s= ',s:10:1);
 readln;
end.

Решение задачи: «Изменить код используя процедуры»

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

uses crt;
procedure vvod(var a,b,c:real);
begin
repeat
writeln('Введите 2 стороны и угол между ними в градусах: ');
readln(a,b,c);
until(a>0)and(b>0)and(c>0)and(c<180);
end;
procedure vychislenie(a,b,c:real);
var d,s:real;
begin
d:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(c*pi/180));
s:=0.5*a*b*sin(c*pi/180);
writeln('Третья сторона= ',d:0:2);
writeln('Площадь= ',s:0:2);
end;
var a,b,c:real;
begin
clrscr;
vvod(a,b,c);
vychislenie(a,b,c);
readln;
end.

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

Используемые единицы измерения: Введенные пользователем значения сторон и угла могут быть в любых единицах измерения, но вычисления всегда выполняются в метрах и градусах.
Ввод данных: Пользователю предлагается ввести три значения: два числа (предположительно, длины сторон треугольника) и одно число (угол между сторонами). Ввод выполняется с помощью функции readln().
Проверка введенных данных: Если введенные значения не удовлетворяют условиям (стороны положительны, а угол в пределах от 0 до 180 градусов), то цикл повторяется.
Вычисления: Вычисление длины третьей стороны (гипотенузы) и площади треугольника выполняется в процедуре vychislenie(). Для вычисления длины гипотенузы используется функция sqrt() и формула a^2 + b^2 - 2abcos(cpi/180). Для вычисления площади треугольника используется формула 0.5absin(cpi/180).
Вывод результатов: Результаты вычислений выводятся на экран с помощью функции writeln().