Pascal/ Найти сумму максимальных элементов 3ех массивов.

[lMasterl]

Ввод массивов реализовать с помощью процедуры, нахождение максимального элемента массива с помощью функции.
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
type mas=array[1..10] of Byte;
var
A,B,C:mas;
y:Integer;
i,m,n,k:Byte;

procedure vvod(l:Byte;D:mas);
var
i:byte;
begin
Writeln('vv dlinu massiva');
Readln(l);
Writeln('vv massiv');
for i:=1 to l do
readln(D[i]);
end;

function max(l:Byte;D:mas):Byte;
var
i:Byte;
mx:Byte;
begin
mx:=D[1];
for i:=2 to l do
if D[i]>mx then mx:=D[i];
max:=mx;
Writeln('mx=',mx);
end;

begin
//vvod(m,A);
Writeln('vv dlinu massiva');
Readln(m);
Writeln('vv massiv');
for i:=1 to m do
readln(A[i]);
vvod(n,B);
vvod(k,C);
y:=max(m,A)+max(n,B)+max(k,C);
Writeln('y=',y);
Readln;
end.

При ручном вводе массива нормально находится его максимальный элемент, а при вводе через процедуру нет. Помогите, пожалуйста, найти, в чем я ошибся.

[Grag]

В процедуре ввода массива объяви массив как параметр-переменную, т.е. Var D:mas

[lMasterl]

А как именно?
Если пробую так:
procedure vvod(l:Byte;D:mas);
var
D:mas;
i:byte;
то получается повторное объявление, а если так:
procedure vvod(l:Byte);
var
D:mas;
i:byte;
то выдает ошибку при обращении к процедуре.

[Grag]

Вот это

procedure vvod(l:Byte;D:mas);

напиши вот так

procedure vvod(l:Byte; var D:mas);

[lMasterl]

Теперь работает, спасибо.

[lMasterl]

В продолжение к этой задаче: теперь нужно поместить функцию и процедуру в модуль, а вызывать их из главной программы. По идее должно быть как-то так:

UNIT vvod;

INTERFACE
type mas=array[1..10] of Byte;
procedure vv(var l:Byte;var D:mas);
function max(l:Byte;D:mas):Byte;

IMPLEMENTATION
procedure vv;
var
i:byte;
begin
Writeln('vipolnenie proceduri');
Writeln('vv dlinu massiva');
Readln(l);
Writeln('vv massiv');
for i:=1 to l do
readln(D[i]);
end;

function max;
var
i:Byte;
mx:Byte;
begin
Writeln('vipolnenie funkcii');
for i:=1 to l do
write(' ',D[i]);
mx:=D[1];
for i:=1 to l do
if D[i]>mx then mx:=D[i];
max:=mx;
Writeln(' mx=',mx);
end;

BEGIN
END.

Но, очевидно, я опять делаю что-то не так и при обращении в главной программе:

program Project2;

{$APPTYPE CONSOLE}

uses
vvod;

type mas=array[1..10] of Byte;
var
A,B,C:mas;
y:Integer;
m,n,k:Byte;


begin
vv(m,A);
vv(n,B);
vv(k,C);
y:=max(m,A)+max(n,B)+max(k,C);
Writeln('y=',y);
Readln;
end.

выдает ошибки. Если кто-то может, помогите, пожалуйста, разобраться.

[savva]

какие ошибки расскажи

модуль нормально компилируется?

[lMasterl]

Модуль компилируется нормально. При обращении к процедуре ввода выдает: "Types of actual and formal var parameters must be identical", а при обращении к функции нахождения макс элемента: "Incompatible types 'vvod.mas' and 'Project2.mas'".

[T(h)rasher]

У вас происходит несоответсвие типов между модулем и главной прогой. Видимо, где-то не правильно указаны типы параметров(в модуле или в главной проге) или передача параметров не верно работает, поэтому один тип не состыкуется с другим.