type TArr = array[3..'z'] of real; 
begin
end.