процедуры Опции

[СТАНИСЛАВ]

привет всем я вновь в затруднительном положении. Задали решить задачу. смысл которой заключается в следующем:
1)написать процедуру вывода одномерного массива вещественных чисел.
2)составить функцию определяющую позицию МАХ элемента.
3)создать процедуру вывода элемента мвссива начиная с максимального.

начал писать программу но что-то не заладилось и правильный результат не получился. помогите пожалуста. мой вариант программы:

rogram sputnik;
type a=array[1..10] of integer;
procedure vivod(var x:a; n:integer);
var i :integer;
begin
for i:=1 to n do
begin
write('x[',i:2,']=');
readln(x[i]);
end;
end;
function max(var x:a; n:integer):integer;
var j, max_posic:integer;
begin
max_posic:=x[1];
for j:=2 to ndo
if x{j}>max_posic then max_posic:=x[j];
max:=max_posic;
end;
var x:a; k:integer;
begin
writeln('vivod max');
readln (k);
vivod(x,k);
writeln('max=',max(x,k));
end.

прошу помоч составить третий пункт задания т.е составить процедуру вывода элемента массива начиная с МАХ.
Ну а также пожалуста проверте написанную программу на правильность.
Зарание очень благодарен за помощь и потраченое время.

Сообщение отредактировано: volvo - 4.11.2006 2:49