ПОМОГИТЕ ПОЖАЛУЙСТА SOS! ПРОЦЕДУРЫ В ПАСКАЛЕ!

[Jondeer]

Помогите пожалуйста написать программу на паскале с процедурами!!!! Мне ёе надо уже завтра здать! SOS!!!!
У меня есть код но преподсказал что в нём ошибки!
Задача:Даны 3 массива А,B,C разной размерности n,m,l .Определить в каком массиве наименьшее значение произведений элементов расположены в отрезке [e,d] и в ответе вывести название этого массива.
Code:
program ex;
type mass=array [1..100] of real;
var a,b,c:mass;
n,e,d,m,m1,i:integer;
p1,p2,p3,min:real;
procedure vvod (var x:mass; var k:integer);
var i:integer;
begin
writeln('введите кол-во элементов массивов');
readln (k);
for i:=1 to k do
writeln ('ввод x[i]');
readln(x[i]);
end;
procedure pr (x:mass; k:integer; var s,e,d:real);
var i:integer;
begin
s:=1; c:=0;
fori:=1 to k do
if ((x[i]>=e) and (d>=x[i])) then
begin
s:=s*x[i];
c:=c+1;
end;
begin
vvod (a,n);
vvod (b,m);
vvod (e,d);
p1 (a,n,p1);
p2 (b,m,p2);
p3 (c,l,p3);
if p1<p2 then
begin min:=p1;
m1:=a;
end
eise begin
min:=p2;
m1:=b;
end;
if p3<min then
begin
min:=p3;
m1:=c;
end;
writeln (min:6:4);
readln;
end.