Помогите сделать Процедуру без параметров

[FreeZZZ]

Вот эта задача
Program Modul;
uses crt;
var a,b,c,S:real;
begin
clrscr;
writeln('найдем сумму 3 модулей');
writeln('Введи первый член,второй член,третий член');
readln(a,b,c);
S:=abs(a)+abs(b)+abs(c);
writeln('Сумма модулей 2 вещественных чисел равна',S:6:2);
readln;
end.
мне надо переделать эту задачу в процедуру без параметров ,
помогите переделать

[Sazary]

Так что-ли?

Program Modul;
uses crt;

procedure proc;
 var a,b,c,S : real;
 begin
 writeln('найдем сумму 3 модулей');
writeln('Введи первый член,второй член,третий член');
readln(a,b,c);
S:=abs(a)+abs(b)+abs(c);
writeln('Сумма модулей 2 вещественных чисел равна',S:6:2);
 end;

begin
clrscr;
proc;
readln;
end.