Как вывести в паскале первый и последний элементы массива?

type b = array[1..10] of integer; var a,c:word; begin a:=0; while c <> 1 do begin a:=a+1; if not b[a] then begin break; c:=1; WriteLn(b[1],' ',b[a]); end; end; end. {Все легко}