[Ron]

ну я думал как то так:

Код:

var a,b,c,d,e,f,........:word;
     max:integer;
max:= какая то функция (a,b,c,d,e,f,........)

ну раз массив, так массив. спасибо...