Неверное число параметров процедуры - Pascal

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

Неверное число параметров процедуры.

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var a,b:real;   
procedure prm(a,b:real;var p:real);
begin
p:=2*a+2*b;
writeln('Периметр=',p:0:2);
end;
begin 
Write('Введите длину прямоугольника а и ширину b : ');readln(a,b);
writeln(prm(a,b):0:2);
end.

Решение задачи: «Неверное число параметров процедуры»

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

uses crt;
procedure prm(a,b:real;var p:real);
begin
p:=2*a+2*b;
writeln('Периметр=',p:0:2);
end;
var a,b,p:real;
begin
Write('Введите длину прямоугольника а и ширину b : ');
readln(a,b);
prm(a,b,p); //это процедура, а не функция и у нее 3 параметра
end.

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

Объявляются переменные:
- a - для хранения длины прямоугольника,
- b - для хранения ширины прямоугольника,
- p - для хранения периметра прямоугольника.
Выводится запрос на ввод длины a и ширины b прямоугольника.
Пользователь вводит значения для a и b.
Вызывается процедура prm с параметрами a, b и p.
Внутри процедуры prm выполняется расчет периметра по формуле p=2a+2b.
Полученное значение периметра выводится на экран, например, Периметр=значение_периметра.
Программа завершается.