Процедуры в Паскале

[ДмитрийРэй]

Здравствуйте, помоги реализовать следующую программу с помощью процедур. Их должно быть не менее трёх(ввода, обработки и вывода). Задача: найти разность между наибольшим и наименьшим из вещественных чисел. У меня есть код проги без процедур, вот он:

program lab123;
uses crt;
const
nmax=20;
var
m:array[1..nmax] of real;
n,i,imax,imin:integer;
s:real;
begin
clrscr;
repeat
writeln(‘Данная программа предназначена для вычисления разности
между наибольшим и наименьшим из введенных чисел.’);
writeln('Введите количество чисел');
readln(n);
until(n<=nmax)and (n>=2);
writeln('Введите ',n,' чисел');
for i:=1 to n do
readln(m[i]);
imax:=1;
imin:=1;
for i:=2 to n do
begin
if m[i]>=m[imax] then imax:=i;
if m[i]<=m[imin] then imin:=i;
end;
writeln('Вы ввели:');
for i:=1 to n do
writeln(m[i]:3:2);
s:=m[imax]-m[imin];
writeln;
writeln('Разность между наибольшим и наименьшим из введенных чисел
равна:');
writeln(s:3:2);
writeln('Нажмите любую клавишу для выхода ');
readkey;
end.

Вот нужно сделать с процедурами, помогите пожалуйста!