Паскаль. Внешние подпрограммы.

[HD-boy]

Помогите пожалуйста с задачей. Очень надо

Создать внешнюю подпрограмму поиска максимального по модулю элемента массива.
Составить основную подпрограмму, коротая вводит случайным образом числа в массив(от -22 до 36), распечатать массив, затем с помощью внешней подпрограммы найти максимальный элемент

[IT-man]

type vector = array[1..10] of integer;
var b:vector;
function MaxAbs(var a:vector):integer;
var i:integer;
begin
maxabs:=a[1];
for i:=2 to 10 do
if abs(a[i])>abs(maxabs) then maxabs:=a[i];
end;
procedure Rinput(var a:vector);
var i:integer;
for i:=1 to 10 do begin
a[i]:=random(37)-22;
write(a[i]:5);
end;
end;
begin
Rinput(b);
Writeln(maxabs(b));
readln;
end.

[HD-boy]

Большое спасибо! Очень выручил.