Помогите, пожалуйста, написать программу в Паскаль, с помощью функции.
дан вектор n (1<=n<=100).Найти минимальный элемент, который не превышает целое число m.

// PascalABC.NET 3.0, сборка 1088const  nn=100;type  Vector=array[1..nn] of integer;function Min(a:Vector; n:integer):integer;var  i,m:integer;begin  m:=a[1];  for i:=2 to n do    if a[i]<m then m:=a[i];  Min:=mend;var  V:Vector;  i,n,m,mn:integer;begin  Write('Количество элементов вектора: '); Read(n);  Write('Значение m: '); Read(m);  Randomize;  Writeln('*** Сгенерированный вектор ***');  for i:=1 to n do begin    V[i]:=Random(101)-50;    Write(V[i],' ')    end;  Writeln;  mn:=Min(V,n);  if mn<=m then Writeln('Минимум ',mn,' не превышает ',m)  else Writeln('Минимум ',mn,' превышает ',m)end.Тестовое решение:Количество элементов вектора: 20Значение m: -42*** Сгенерированный вектор ***-12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24 Минимум -50 не превышает -42