Определить площадь круга, длину круга, и объем цилиндра через процедуру

program spiv;
uses crt;
const pi=3.14;
var s, v, R, h, P, a: integer;
s1, p1, v1: real;
begin
writeln ('Вычисление площади круга (введите 1), длины окружности (введите 2), объема цилиндра (введите 3)');
writeln ('Введите число искомого значения (смотрите строку выше)');
readln(a);
if a=1 then
begin
writeln ('Введите R окружности');
readln(R);
s1:=pi*R*R;
writeln ('ÏПлощадь круга равна: ', s1);
end
else if a=2 then
begin
writeln ('Введите R окружности);
readln(R);
p1:=2*pi*R;
writeln ('Длина окружности: ', p1);
end
else if a=3 then
begin
writeln ('Введите R окружности:');
readln(R);
writeln ('Введите высоту H:');
readln(h);
v1:=pi*R*R*h;
writeln ('Объем цилиндра равен: ', v1);
end;
end.

const pi=3.14;
var
h,r:real;
 
procedure Krug;
begin
writeln('Plochad kruga= ', pi*sqr(r));
writeln('Dlina kruga= ',  2*pi*r);
end;
 
procedure Cilindr;
begin
writeln('Obem cilindra= ', pi*sqr(r)*h);
end;
 
begin
writeln ('Vveditte radius kruga');
readln(r);
krug;
 
writeln('Vvedite radius cilindra');
readln(r);
writeln('Vvedite visotu cilindra');
readln(h);
cilindr;
 
end.