Помогите решить задачу с процедурами

[Jondeer]

Пожалуйста проверьте код программы а то у меня паскаля нет и если можно исправьте ошибки!!!
Задача:Даны 3 массива А,B,C разной размерности n,m,l .Определить в каком массиве наименьшее значение произведений элементов расположены в отрезке [e,d] и в ответе вывести название этого массива.

:( 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.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[Alex21]

Сразу бросилось в глаза:

end;
eise begin

Надо так:

end   // запятая не нужна
eLse begin

[Jondeer]

Ага точно я вспомнил перед else ; не нужно. А остальное???