Массивы с использованием ссылочного типа данных

type
  per = ^st;
  st = record
    element: integer;
    next: per;
  end;
var
  stack: per;
  min, max, d, e, size, l, i, str, n, maxi, mini: integer;
  massive: integer;                                  
 
 
function prov(q: integer): integer;
var 
  f: string;
  b: boolean;
  n, c: integer;
  r: real;
begin
  readln(f);
  while (b = false) do
    begin
      val(f,n,c);
      if c = 0 then 
        begin
          writeln('Введено целое число. Это корректно');
          b := true;
        end
      else
        begin
          val(f, r, c);
          if c = 0 then
            begin
              writeln('Это вещественное число, а не целое. Введите целое значение');
              readln(f);
            end;
        end;
      if c <> 0 then
        begin
          writeln('Либо число введено с ошибкой, либо это не число. Введите целое число');
          readln(f);
        end;
    end;
  prov := n;
end;
 
 
procedure writeStack(var j: per; el: integer);             
var
  x: per;
begin
  new(x);
  x^.element := el;
  x^.next := j;
  j := x;
end;
 
 
procedure Vyvod(var j: per; var max: integer; var min: integer);  
var 
  e: integer;                           
begin
  while j <> nil do
  begin
    e := j^.element;
    if (e > max) then max := e
    else if (e < min) then min := e;
    j := j^.Next;
  end;
end;
 
 
begin
  max := -1;
  min := 10000;
  stack := nil;
  writeln('Введите размерность');
  str := prov(1);
  n := str;
  writeln('Введите элементы целочисленного массива');
  for i := 1 to n do
    begin
      str := prov(1);
      massive := str;
      writeStack(stack, massive);
    end;
  Vyvod(Stack, max, min);
  maxi := max;
  mini := mini;
  writeln('Разность максимального и минимального равна: ', max, ' - ', min, ' = ', max-min);
end.