задача в pascal? помогите плииииз

[Absent]

ребят помогите пожалуйста решить задачу,Ю просто завтра надо сдать задачу? надо ее сделать с модулем и добавить файлы!!

условие:Даны три массива А,В,С разной размерности n,m,l. Определить (вывести в качестве результата имя массива) в каком массиве максимальное значение суммы элементов, расположенных вне интервала (е,d)

program trimassiva;
type mass=array [1..100] of real;
var a,b,c:mass;
i,n,l,j,m:integer;
suma,sumb,sumc:real;
procedure vvod(var x:mass; k:integer);
var i:integer;
begin
writeln('Vvedite masss');
for i:=1 to k do
readln(x[i]);
end;
function sum(x:mass;k:integer):real;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to k do
s:=s+x[i];
sum:=s;
end;
BEGIN
readln(n,m,l);
vvod(a,n);
vvod(b,m);
vvod(c,l);
suma:=sum(a,n);
sumb:=sum(b,m);
sumc:=sum(c,l);
if ((suma>sumb) and (suma>sumc)) then writeln('Max summa v mass A');
if ((sumb>sumc) and (sumb>suma)) then writeln('Max summa v mass B');
if ((sumc>sumb) and (sumc>suma)) then writeln('Max summa v mass C');
if (suma=sumb) then writeln ('suma=sumb');
if (suma=sumc) then writeln ('suma=sumc');
if (sumc=sumb) then writeln ('sumc=sumb');
readln;
END.

From Stilet: Ты можеш называть темы нормально, чтоб было все понятно? "Плииииз" - это нарушение правил форума. В следующий раз тему с таким названием просто удалю.

[Xardas]

Вот, пожалуйста, Ваш модуль:

unit MyModule;
interface
procedure vvod(var x:mass; k:integer);
function sum(x:mass;k:integer):real;
implementation
procedure vvod(var x:mass; k:integer);
var i:integer;
begin
writeln('Vvedite masss');
for i:=1 to k do
readln(x[i]);
end;
function sum(x:mass;k:integer):real;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to k do
s:=s+x[i];
sum:=s;
end;
end.

В основной программе добавить в начало uses MyModule нужно и удалить процедуру и функцию. А что записывать в файл или читать из файла? И че то я не понял про интервал (e,d)?

[Stilet]

И че то я не понял про интервал (e,d)?

Это значит что в рассчете будут учавствовать только те элементы массива, которые не попадают в интервал.

[Absent]

ДА!!спасибо большое!!