Пожалуйста помогите составить программу для нахождения Периметра и площади прямоугольника!!!СРОЧНО НАДО!!!!!

Program SP;var  x,y: real; // Стороны прямоугольника  S: real;   // Площадь прямоугольника  P: real;   // Периметр прямоугольника  procedure RectSP(a,b: real; var S,P:real);begin  S := a * b; //Нахождение площади  P := a + b; //Нахождение суммыend;begin  writeln('Введите стороны прямоугольника: ');  readln(x,y);  RectSP(x,y,S,P);  writeln('Площадь равна ',S); //Вывод площади  writeln('Периметр равен ',P); //Вывод периметраend.