ошибка в процедуре

[3Doleg]

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

я делал для одного вектора,потом 2 добавлю)

[PASCAL]program a10; uses crt; const n=20;
type a1=array[1..n]of integer;

procedure maxi (var ar: a1 ; k : integer; max:integer);
begin
max:=-1000;
for k:=1 to 20 do
if (ar[k] mod 2 = 0) and (ar[k]>max)
then max:=ar[k];
end;

var i,j,maxx:integer; m,l,k,max:integer;
begin clrscr;
writeln('vvedit rozmirnist masuvy : ');
readln(m);
for i:= 1 to m do begin
for j:= 1 to m do begin
a1[i]:=random(7)-14;
write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=i+1 to m do
if a[i]<a1[j] then begin
l:=a[i];
a1[i]:=a1[j];
end;
for i:=1 to m do
for j:=1 to m do begin
maxx:=maxi(max);
writeln;
end.
[/PASCAL]

Заранее спасибо)

[ViktorR]

И какой это Паскаль?
1. Смотри на этот код:

type a1=array[1..n]of integer;

и

a1[i]:=random(7)-14;

В первом случае описан тип данных (правило, по которому компилятор будет использовать переменные такого типа)
Во втором случае - выполняется операция над типом.
Вроде как надо, например,
var mas : a1;
и затем:

mas[i]:=random(7)-14;

2.

procedure maxi (var ar: a1 ; k : integer; max:integer);
begin
max:=-1000;
for k:=1 to 20 do
if (ar[k] mod 2 = 0) and (ar[k]>max)
then max:=ar[k];
end;

Из заголовка процедуры видно, что ar - массив, из которого можно читать и в него можно писать.
Параметры k и max - значения. Т.е. это уже вычисленные величины.
Т.о. что значит код?

max:=-1000;

или

for k:=1 to 20 do

Возможно, что надо так:

procedure maxi (var ar: a1; var max:integer);
var k : integer;
begin
max:=-1000;
for k:=1 to 20 do
if (ar[k] mod 2 = 0) and (ar[k]>max)
then max:=ar[k];
end;

Вот только такая процедура может вернуть max равным -1000

И ...

[3Doleg]

спасибо, исправил, но все равно считает неправильно, помогите плис)!