Создать приложение. Написать процедуру и функцию, которая подсчитывает количество положительных элементов в массиве и определяет наибольшую разницу между этими элементами. В основной программе ввести массив из 15 элементов и проверить работу подпрограмм.

program Project1;var m:array [0..14] of integer; i:integer;function IsPositive(a:integer):boolean;begin  result:=(a>-1);end;procedure work;var min, max, count:integer;begin  count:=0;  min:=m[0];  max:=0;  for i:=0 to 14 do begin    if IsPositive(m[i]) then begin      inc(count);      if m[i]>max then max:=m[i];      if m[i]<min then min:=m[i];    end;  end;  writeln('MAX: ', max);  writeln('MIN: ', min);  writeln('Count: ', count);end;begin  for i:=0 to 14 do begin    write('n: ');    readln(m[i]);  end;  work;  readln;end.