Создать программу для вычисления площади поверхности и объема цилиндра по принципу «ввод значений -> результат»- Pascal(Паскаль)

//Объем
program _1;
uses crt;
var
  radius, vysota:real;
begin
  ClrScr;
  TextColor(14);
  Writeln('Вычисление объема цилиндра.');
  Writeln('Введите исходные данные:');
  write('радиус основания -> ');
  readln(radius);
  write('высота цилиндра -> ');
  readln(vysota);
  writeln('Объем цилиндра: ',(2*pi*radius*radius*vysota):7:2);
  Repeat
  Until KeyPressed;
end.

//Площадь
program _2;
uses crt;
var
  radius, vysota:real;
begin
  ClrScr;
  TextColor(14);
  Writeln('Вычисление площади поверхности цилиндра.');
  Writeln('Введите исходные данные:');
  write('радиус основания -> ');
  readln(radius);
  write('высота цилиндра -> ');
  readln(vysota);
  writeln('Объем цилиндра: ',(2*pi*radius*radius+2*pi*radius*vysota):7:2);
  Repeat
  Until KeyPressed;
end.