[xxxmaximal]

спасибо , я так сначала думал только я под type вводит
mas=array[1..80]of Integer;