Паскаль. Процедура

[P1RoG]

Что сделать что бы в этой строчки "if c[j]>max then max:=c[j];" ,а по-идеи и в той где min, не выдавало ошибки " Type is mismatch " ? Перед этим max и min не где не упоминаются.

Процедура должна выполнять вот такое условие : найти разницу между максимальным положительным и минимальным элементами массивов.

procedure p(l:integer; c:mas; var raz:integer); 
var j:integer; 
begin 
max:=-maxint;
min:=maxint;
begin
for j:=1 to l do
if c[j]>0 then
if c[j]>max then max:=c[j];
end;
begin
for j:=1 to l do
if c[j]<min then min:=c[j]
end;
raz:=max-min;
end;

[Greblin]

Перед этим max и min не где не упоминаются.

Для начала объявить эти две переменные

[P1RoG]

мм... Где? Потому что где я их не вставлял, ошибка все там же и та же :\