Разность между max и min значениями

[Иван 883]

Доброго времени суток господа програмисты! Мне нужно написать программу которая вычисляет разность между максимальным и минимальным значением массива с использованием процедур. Вот мой получившийся код но на последней строке выскакивает ошибка.

program lab11;
uses crt;
const m=200;
type mas=array[1..m] of real;
var a:mas;
    n:integer;
    max,min:real;
procedure vvod;
var b:mas;
    n,i:integer;
begin
  writeln('Введите количество чисел N');
  readln(n);
  write ('Введите числа');
  for i:=1 to n do
    begin
      writeln('Введите число N=',I);
      readln(b[i]);
    end;
end;
procedure rechenie;var b:mas;
    max,min:real;
    n,i:integer;
begin
  max:=b[1];
  min:=b[1];
  for i:=1 to n do
    begin
      if b[i]<min then min:=b[i];
      if b[i]>max then max:=b[i];
    end;
end;
procedure otvet;
var max,min:real;
begin
  writeln('ответ',max-min:3:2);
  readln;
end.

Дело в том что процедуры только начал изучать и многого ещё незнаю. Подскажите пожалуйста, в чем моя ошибка?

[Tkirill]

uses crt;
type
ar=array[1..100] of integer;
var
mas:ar;
n:integer;
procedure read_array(var a:ar; x:integer);
var
i:integer;
begin
writeln(' BBODUTE MACCUB ');
writeln;
for i:=1 to x do
  begin
   write(' -> ');
   readln(a[i]);
  end;
end;
function max(a:ar; n:integer):integer;
var
i,buf:integer;
begin
max:=a[1];
for i:=2 to n do
if a[i]>buf then buf:=a[i];
max:=buf;
end;
function min(a:ar; n:integer):integer;
var
i,buf:integer;
begin
buf:=a[1];
for i:=2 to n do
if a[i]<buf then buf:=a[i];
min:=buf;
end;
begin
clrscr;
write(' PA3MEP MACCUBA -> ');
readln(n);
read_array(mas,n);
writeln;
writeln(max(mas,n)-min(mas,n));
readln;
end.

Новичок Иван 883 - и тот знает, что код нужно заключать в соответствующие тэги.
Делаю устное замечание (на первый раз).

[Иван 883]

Спасибо большое Tkirill!!! Отзыв Вам оставил.