Написать программу, вводящую массив из N целых чисел с клавиатуры и вычисляющую произведение трех наименьших элементов массива с использованием процедуры сортировки — Pascal(Паскаль)

uses crt;
const n=10;
type mas=array[1..n]of integer;
procedure Sort(var v:mas);
var i,j,b:integer;
begin
for i:=n downto 1 do
for j:=1 to n-1 do
if v[j]>v[j+1] then
 begin
  b:=v[j];
  v[j]:=v[j+1];
  v[j+1]:=b;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(v[i],' ');
writeln;
writeln;
end;
var m:mas;
    i:integer;
begin
 clrscr;
 writeln('Введите элементы массива -> ');
 for i:=1 to n do
 read(m[i]);
 readln;
 Sort(m);
 writeln('Произведение 3х наименьших=',m[1]*m[2]*m[3]);
 readln
end.